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; 1 600) MODULE SRTTRN( MAIN = SRTTRN 

: i 00¢ IDENT = 'v04-600' ! File: SRTTRN.B32 Edit: PDG3006 

: 000 IF ZBLISS(BLISS32) 2TH 

: ¢ i Seyret teeter VER TERNAL OOENERAL) 

; 6 Bae )s= 

; 7 0007 1 BEGIN 

3 8 0008 1! 

$ 19 584 } seen Ar ven Seal, teak dies ee 
3 i‘ ® 
; 11 0011 1 !* COPYRIGHT (c) 1978, 1980, 1982, 4 BY * 
3 \ Belg 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYHARE. MASSACHUSETTS. * 
; Fe Satz : : ALL RIGHTS RESERVED. * 
P ; e 
; 15 0015 1 !* a SOFTWARE IS URN SHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 16 0016 1 ! Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 17 0017 1 ! ON ELUSTON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 18 0018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 19 0019 1 !* OTH ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: $y b05¢ : ¢ TRANSFERRED. * 
3 i®* * 
3 $$ Bos¢ 1 Ie pe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
a 2 0025 1 !« SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $e bese : be CORPORAT {DW * 
; Mil a 
; @& b0s$ 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie i 4 0027 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; 0028 1 ! * 
; @& 0029 1 ! * 
$ * 4 0 ! PRR RARER RARER ARERR AAT AAT AAT A AT AAA AAA AAA AAAA RARE ARERR 
: 1 : 

; 32 O03§ 1 

3; $3 0035 1 !4+ 

; 34 0034 1! 

; 35 0035 1 ! FACILITY: VAX=-11 SORT/MERGE & PDP-11 SORT/MERGE 

; 36 0036 1! 

3 37 0037 1 ! ABSTRACT: 

: $3 0038 1! 

: is $F : This module translates specification files, 

3 $3 Boe) ! SORT-11 V2.0 or VAX=-11 SORT/MERGE V3.0 format 

: “§ 0948 ' PDP-11 SORT/MERGE V3.0 or VAX=-11 SORT/MERGE V3B format. 

: 645 Gods 1 ! ENVIRONMENT: VAX/VMS user mode 

; 646 O66 1: 

s; 67 0047 1 | AUTHORS: 

: ri 049 ' Peter D Gilbert, Victor L Bennison, CREATION DATE: 21-Jan-1982 

3 50 050 1 ! MODIFIED BY: 

; 51 boas 1! 

; 26 O3¢ 1! 

- 5 053 1! 103- O0¢ Di ting nit oe a F and D floating. PDG 3-Mar-1983 

s 36 054 1! Re of Fixes, 1895 wait yariebtenrorsat 9 s¥R rt, and addition 
$ 55 055 1! fiers. -Mar-1 eB 

3 8 B38 & 10 ~B08 i, of OBAL zceloraatena. PDG 11-May-19 

3 0057 1! 3-005 Changes so this can be used on PDP-11s. PDG 28-Sep-1983 
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T03-006 added forced fields to fee key list so sney are now output 


n the correct order relat lye te to other ke 

Changed to GCML for Bliss=1 Added DTYP “Ata ng DTYPE_DIBOL. 
Interpretation of 'Z' data t tvs depend 99 7$11/S32 qualifier. 
Check output LRL length. PDG 26-Oct-1983 
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v04-000 er8epn 18a F3i10:8e = Pekar boBhdegsze hn 83549 a 
; 65 ye 1 LITERAL 3 
3; «6366 65 1 K_NATIVE = 1; ! True to use native routines for VAXen : 
; oF $98 1 LITERAL § 
3 os $e } NEW = 1; ‘ 
: a 0069 1 b1ORARY aE TAT Mae ae ! Keywords in specification file : 
; 0 » 1 ZIF FOL ISS (OL 583 ) XTHEN ; 
; eg: 071 1 LIBRARY ‘SYS LIBRARY:STARLET'; ! Defines system services,etc. ; 
§ 7 Ore 1 LIBRARY 'SYSS$LIBRARY:XPORT'; : 
; ie . Bors : BECUIRE "SRC$:SRTTRNMSG' ; ! Error message definitions ; 
ce i U O12 1 LIBRARY ‘SYSSLIBRARY:RMSINT'; ! Defines system services,etc. : 
: 77 U 0173 1 LIBRARY 'SYSS$LIBRARY:XPORT'; ; 
; 78 U 0174 1 REQUIRE 'SRC$:SRTTRNMSC'; ! Miscellaneous . 
: U 0175 1 REQUIRE ‘SRC$:SRTTRNMSG': ! Error message definitions ; 
; 80 U 0176 1 LIBRARY 'SYSSLIBRARY:RSX11M'; ; 
By hae 
; He 0179 1 LINKAGE : 
>; B4 0180 1 CALL = CALL; ; 
; 85 bigs 1 FORWARD ROUTINE : 
; 36-8 4 § 1 ! Main entry : 
> 87 183 1 DEF _FIELDS: NOVALUE;, : 
; 688 He 1 DEF _SUBFIELDS: NOVALUE, : 
> «89 0185 1 PUT-DEFN: | NOVALUE, : 
; gige 1 PUT_NAME: NOVALUE, : 
Fy 91 0187 1 UT_FFLD: NOVALUE, : 
; 4 0188 1 REPORT_JO_ERROR: CALL, ! Report on 1/0 errors ; 
., ¥ 0189 1 INIT_10: NOVALUE, ! Parses command Line, opens and connects files ; 
> 94 0190 1 CVvT_BTB, i Converts ascii to binar ; 
; 0191 1 CVT_BTA, ! Converts binary to asci ; 
; B136 1 NEW FMT : 
; we 0195 1 DO_FIELO: NOVALUE, ! Get all field definitions if no record types ; 
; «#98 0194 1 DO_HEADER: NOVALUE, ! Get header information : 
; 99 0195 1 DO ALTSEQ: NOVALUE, ! Process altseq line : 
: 100 0196 1 T_VM: NOVALUE, ; 
; 101 0197 1 DO_RECORD: NOVALUE, ! Process an include or omit ; 
: 108 0198 1 GET_DEFN, ! Get position, size and type from factor : 
; 10 0199 1 GET_FFLD, ! Create a new forced field block ; 
3; 6104 0200 1 GET_LINE ! Get Line of old spec file ; 
: 105 0201 1 TREE INSERT, : 
: 106 0 OF 1 SOR_ERROR, ! Issue diagnostic ; 
:; 107 0205 1 PUT_LITE: NOVALUE, ! Output a literal to new spec file 
; 198 Se 1 PUT_QUOT: NOVALUE, ! Output quoted text to new spec file 
9 . 5 PUT_TEXT: NOVALUE CALL, ! Output text to new spec file 
3 110 Be 1 PUT_LINE: MNOVALUE CALL, ! Output Line to new spec file 
s 41 8 1 NEW_KEY: " ! Create a new key description 
: \1¢ 8 1 UPCASE: NOVALUE, ! Convert to upper case 
e BF 09 1 FREE FIXED: NOVALUE ' Convert from free-format to fixed-format 
3 113 19 : CLOSE_FILES: NOVALUE ; ! Close input and output files 
3 118 \ 1 LITERAL 
. -3F 1 1 HEADER_LINE = 1, ! Types of Lines in old spec file 
3 18 14 #1 ALTSEQ_LINE = ¢: 
3; 11 15 1 RECORD _LINE = ° 
3 1s9 16 1 FIELD_CINE = 4; 
s Yet 1 1 
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SRTTRN 16-Sep-1984 04:11: AX=11 Bliss-32 V4.0-74 Page 4 SR 
¥04=000 Vegeb-19Re fsil0sse Feber bo°ShessRerkns S359 123 vo 
cy ; 18 1 LITERAL 3 
, 1 1 FALSE = 9. ; 
3 : ¢ : : TRUE = 1; : 
, 4 8 ¢ 1 STRUCTURE : 
; 1 4 ? } BBLOCK(O,P,S,E;B8S=0] = CBS](BBLOCK+0)<P,S,E>; ; 
3; 6129 5 1 MACRO . 
; 13 0 § 1 BASE_ = 0,0,0,0 %, ; 
; 131 0 1 ELIF7= ELSE if % ; 
; ! § 8 ! LENADR_LJ = CHARCOUNT (ZREMAINING) , UPLIT BYTE(ZSTRING(ZREMAINING)) %; : 
s 136 L O 1 SIF SBLISS(BLISS32) 3 
; 135 1 1 XTHEN MACRO STR_LOG_WORKFILE = 'SORTDO' &; ; 
; 137 U 8 § ! oe MACRO STR_LOG_WORKFILE = "SYSSSCRATCH:SRTTRN. SRT %; : 
$s 138 8 s % : 
3; 139 5 1 LITERAL : 
; 140 0 36 1 INP_BUF _WIDTH = 132. : 
3; «(141 0237 1 OUT_BUF WIDTH = 255, ; 
; 166 OSes 1 OUT"WIDTH = 80 - 8 = 1; : 
: 14 0239 1 $ 
3 6144 0240 1 OWN : 
: «6145 0241 1 INP_BUF : VECTOR Se tet ite et ! Input record buffer : 
; 146 0 g 1 OUT_BUF: VECTOR BUT BUF WIDTH BYTE ° ! Output record buffer F 
3; 147 0243 1 OUT_DSC: VECTORC2), ! Len/adr of remaining room ‘ 
; 148 0244 1 INP_REC_SI7Z; ! Input record size ; 
3 «149 0245 1 3 
; 150 0246 1 OWN F 
; 13 8 ef : on CUR_RAB: REF $RAB_DECL; ! Current input RAB : 
3 138 0249 1 INP_FNA: BLOCKCNAMSC_MAXRSS, BYTE], ! File name string area $ 
> «154 P osav 1 INP_NAM: $ 3 
s 35 P 0251 1 ESS=ZALLOCATIONCINP_FNA), ! Expanded name string size 3 
3; (1% P 8526 1 = ! Expanded name string area 3 
3 37 P 0253 1 RSS=ZALCOCATION(INP_FNA), ! Resultant name string size : 
; 158 54 1 RSA=INP_FNA), ! Resultant name string area ; 
: 159 P0255 1 INP_FAB: $FAB( 3 
: 160 P 2 1 NAM=INP NAMCBASE _] > 
; 161 P 0257 1 DNA=UPLTT BYTE('-SRT'), ' Default for /$11 only! ; 
; 166 P 0258 1 DNS=ZCHARCOUNT('.SRT'), ! Default for /S11 only! 3 
; 16 P 0259 1 FAC=GET ! Read-only : 
3; 164 P 0260 1 FOP=<SQ6>, ' Sequential only 3 
3; 6165 P 0261 1 RFM=VAR ' Variable Length format 3 
: 166 6¢ 1 SHR=GETS , i Share read ; 
3; 1 P 0263 1 INP_RAB: $RAB( 3 
> 168 P 0264 1 Abs 1H? .FABCBASE ], F 
: 169 P 0265 1! MBC=16, T Multi-block count 3 
: 170 P 66 4 te ! Multi-buffer count 3 
: 171 P 0267 1 USZ=ZALLOCATION(INP_BUF), ; 
; 76 6 ! inal UBF =I NP_BUF ) ; ! Input buffer : 
: 17% § 1 TMP_FNA: BLOCKCNAMSC_MAXRSS, BYTE), ! File name string area : 
3 175 P 0271 1 TMP~NAM: ; 
3 176 P 0272 1 ESS=ZALLOCATION(CTMP_FNA), ! Expanded name string size 3 
s 7 P 0273 1 = ! Expanded name string area 3 
> 178 P 0274 1 RSS=ZALCOCATION(TMP_FNA), i Resultant name string size ; 
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RSA=TMP_FNA), ! Resultant name string area 


TMP_FAB: $FAB( 
NAM=TMP_NAMCBASE_], 
pNasyeurT BYTE(STR_LOG_WORKFILE), 
FNS=%CHARCOUNT (STR_LOG_WORKF ILE), 
FAC=<GET ,PUT> 
FOP=<DFW.DLT. FMD, THP. SUP $Q0>, 
RFM=VAR { Variable Length format 
SHR=NILS, ! No sharing 

TMP_RAB: $ ( 


: $R 
~ "" FAB=TMP_FABLBASE_], 
MBC=16, T Multi=-block count 
MBF = ! Multi-buffer count 
USz= ALLOCATION(INP_BUF), | Same as input file 


UBF =INP_BUF 
RBF=INP-BUFS; ! Output buffer 


OWN 
OUT_FNA: BLOCKCNAMSC_MAXRSS, BYTE), ! File name string area 
OUT“NAM: SNAM( 
RLF =INP_NAMCBASE_} ! Related file name string 
ESS=XALCOCATION(OUT_FNA), ' Expanded name string size 
SA= ! Expanded name string area 
RSS=ZALCOCATION(OUT_FNA), i Resultant name string size 
RSA=OUT_FNA), ' Resultant name string area 
OUT_FAB: $FAB( 
NAM=OUT_NAMCBASE_} 
DNASUPLIT BYTE('<SRT'), 
DNS=ZCHARCOUNT('.SRT'), 
FOP=<OFP,SQ0>, ! Output file parse 
FAC=PUT, ! Write access 
RAT= ' Line feed and carriage return 
RFM=VAR), ! Variable length format 
OUT_RAB: $R 
FAB=OUT_FABCBASE_], 
' MBC=16, T Multi-block count 
! MBF =2 ! Multi-buffer count 
RSZ=%ALLOCATION(OUT_BUF), 
RBF =OUT_BUF ); ! Output buffer 
LITERAL 
LUN_K_MSG 1 
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: Define shared messages 


DEFSHR_CMSG,SEV) = 
ZNAME (*SRTTRNS_* (MSG) = 
INANE ("SHR MSG) + ZNAME('STS$K_', SEV) 
LIF Iss (BL Iss 2) AND K_NATIVE STHEN 
ee SRTTRNS_FACILITY * 16 


z; 
LITERAL 
DEF SHR_( 
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ERR, ERROR); 


Define the keyword strings 


F ter 
ep 

122868 1982 93 
Internal logic error 
Error closing !AS 
Error closing !AS as 
Error Glosing ‘AS as 
Insuff cient virtual 
Error opening !AS as 
Error opening iAS as 
Error reading !AS 
System service error 
Error writing !AS 


DEFSTR_CA,B) = %NAME('X_",A) = B XQUOTE % 2%; 


DEFSTR_(KEYWORDS) ; 


Define a structure for holding field definitions 


as ! Pointer to F 
J ! Pointer to F 
1. ! Position of 
J, ' Size of fiel 
}: ! Pointer to F 
! Datatype of 
T_UNITS ' Size 
D7K_S12 76) FIELD(FLD_ H 


10:34 Fada r32°SReisatrRN 23071 
detected 

input 

output 

memory 


input 
output 


LDL 
LD- 
fi 
d 

FL 
fi 


IELD 


structure for holding forced field definitions 


SUNIT FIELD 
FLD_FIELDS = 
SET™ 
FLD_LSON= SAD 
FLD-RSON= SAD 
FLD-POS= $81 
FLD_SIZ= $B] 
FLD-FFLD= SAD 
rhe er ve $81 
LITERAL FLD_K_SIZE= SFIE 
MACRO’ FLD_BCOCK= BBLO 
Define a 
SUNIT FIELD 
FFLD_FIELDS = 
SET 
FFLD_NEXT= $A 
FFLD_ COND= $B 
FFLD-LIT= $8 
TES;~ 
LITERAL FFLO_K_SIZE= = SFI 
MACRO FFLD-BCOCK= BBL 
! Define a structure for format 
$UNIT FIELD 
eat FIELDS = 
FMT_NEXT= SAD 
FMT_KEYS= $AD 
FMT~CKEY= AD 
FMT-OUTLRL= SIN 
FMT~COND= I 
TES; 


! Pointer to a 
& pene: tien num 


isernete FFLD_BLOCK or 0 


teral value ler this FFLD 


UNI ' Size 
Bk "Ties FIELDCFFLD 


nformation 


! Poin 
' Poin 
Poin 
' Cond 


' Output LRL 


n units 
filets) q; 
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8 1 LITERAL FMT_K SIZE= SFIELD_SET_UNITS; ! Size in units ; 
: : MACRO FMT_BCOCK= BBLOCKCFMT—K_ 1263 FIELD(CFMT_FIELDS) %; : 
38 1 Define a structure for holding keys of different formats : 
3 1 SUNIT_FIELD : 
95 1 KEY_FIELDS = ; 
38 1 SET ; 
97 1 KEY_NEXT= SADDRESS]- ! Pointer to next KEY BLOCK : 
98 1 KEY_FLD= SADDRESSJ, ! Pointer to FLD_BLOCR ; 
99 1 KEY _ASCE= $B1T), ! True if ascending key ; 
QO 1 SOVERLAY(KEY ASCE) ; 
i KEY_CiTf= C$B81TS(8)] ! Literal key (if key_fld = 0) : 
8g ! SCONTINUE : 
04 1 LITERAL KEY_K_SIZE= $FIELD_SET_UNITS; ' Size in units : 
0s MACRO KEY_BCOCK= BBLOCKCKEY“K_SIZE] FIELD(KEY_FIELDS) %; : 
0 1 . 
BB : ; OWN Storage ; 
10 1 GLOBAL : 
bo 0: VECTORCOJ, ; 
\§ 1 ASCENDING, ' True if ascending is the default : 
13° (1 TSEQ ' Altseq expected = 1, unexpected = 0 : 
14 1 FLD_ROOT, ! Tree of field names : 
15 1 FMT_ROOT: REF FMT_BLOCK, ° 
16 1 FMT_CURR: REF FMT_BLOCK, : 
17 1 LINE_TYPE, ' Type of input Line : 
18 1 LINE _NUM ' Last Line number : 
1 1 LINE SEQ ' True if Line numbers were out of sequence : 
0 1 ADDINCKEY, ! True if additional keys were added ; 
7 7 COND_NUM, ! Condition number : 
§ 1 ASS ! What pass we are working on : 
1 PROCESS, ! What sort process we are doing : 

4 1 EBCDIC ! True for ebcdic collating sequence : 
7 NOSTRIP, ! True if we are not doing key stripping ; 
§ 4 OUTLAL, ' Output LRL ’ 
i SWITCH S32, ! True if /S32 qualifier was present 3 

3 1 SOR_SEV, ' Worst severity (encoded) 3 
1 SOR_STS, ! Worst status ‘ 

? : CLR_1: VECTORCO); : 
§ 1 SIF XBLISS(BLISS16) XTHEN ; 
1 EXTERNAL LITERAL : 

: ! ert EXSSEV, EXSSUC, EXSWAR, EXSERR; : 
§ 1 RIF NOT ZDECLARED(DSCSK_DTYPE_DIBOL) X%THEN 3 
1 LITERAL : 

5 : er DSCSK_DTYPE_DIBOL = 40; : 
40 1 ZIF NOT ZDECLARED(DSCSK_DTYPE_AZ) X%THEN : 
41 1 LITERA 3 
$s 1 DSCSK_DTYPE_AZ = 41; . 
45 1 &FI : 
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«PSECT SOWNS,NOEXE,2 
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3 4 tte } GLOBAL ROUTINE SOR_ERROR(ERR) = : 
3 1 728 1 !e4 : 
3 § 447 1! 3 
: Z its ! FUNCTIONAL DESCRIPTION: : 
3 2? +29 : This routine signals an error diagnostic. : 
; 37 126 : FORMAL PARAMETERS: ‘ 
3 4 eee : Parameters passed to SIGNAL. ; 
H 61 436 1 ! IMPLICIT INPUTS: : 
3 6¢ 4 1! : 
3; 3 4 8 1! NONE : 
; 364 4 , 3 3 
; 365 460 1 ! IMPLICIT OUTPUTS: ; 
3 08 461 1! 3 
; % Be8 3 NONE : 
: 368 465 1! : 
; 369 0464 1 | ROUTINE VALUE: ; 
; 370 0465 1! : 
; 371 0466 1! System status (first parameter of signalled status), with the : 
wy. 0467 1! INHIB_MSG bit set. : 
: 74 0469 1 ! SIDE EFFECTS: : 
3s 375 Bere 1! 3 
; 376 471 1! The image may be exitted due to the error. ‘ 
3; 377 bers 1! 3 
3; 378 4 1 !-- : 
; 379 47 BEGIN ; 
; 380 0475 SIGNAL (ERR); : 
: 381 0476 RETURN .ERR OR STSSM_INHIB_MSG; : 
3 2 0477 END; : 
-TITLE SRTTRN 3 

-IDENT \V04-000\ : 

-PSECT S$PLITS,NOWRT,NOEXE,2 : 

4 2 53 4 6° P.AAA: .ASCII \.SRT\ 3 : 

30 44 54 4F 0 P.AAB: .ASCII \SORTDO\ 3 ; 
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32 
«WOR 
- ADDRESS INP _BUF 


LO 

“LO 

LO 

BY 

BYTE 

BYTE 

BYTE 

LONG 
«ADDRESS INP_FAB 
[LONG 

: BLKB 55 
-BLKB 

BYTE § 
BYTE 6 
Byte 0. 


-BYTE 
-ADDRESS TMP_FNA 
«BYTE 
:BY i 
-BYTE 


otoo 
sb 


-BYTE 
ofpesess TMP_FNA 
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608 8 PASS:: .BLKB 
O2C PROCESS:: 
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2 LKB 
00044 POR STE 
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$32( 


COND = ten me Sa set 
RETURN_ = MCHL 28 
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0 


dex AO count 
N 2 %ELSE 0 2FI; 


OUN In 
S1G- TONORE = tere 4BLISS(BLISS32) % 
XBLISS(BLISS32) AND K_NATIVE 


(BLO OcKe BYTE 
1$$16(1) %BL 
in SIG of t 

T 


GIN 
RETURN SS$_RESIGNAL; 
ZELSE 
BEGIN 
atte 
SIZE 
XIF YBLTS $S(B 
B: VECT 
LOCAL 
Q: REF VECTORC BYTE .UNSIGNEDJ, 


X; 
BIND 
- * UPLIT(*WSEIF567°): VECTORC,BYTE); 


CRLF = XCHAR(ZX'OD',2X'OA') &; 
! Issue the original error message 
P = CHSMOVE(LENADR NDESTSey. Seve i a BC0J); 
CHSWCHAR AG :SEVC; COND STS$V_SEVERITYJJ, 
CHSWCHAR_A( 
Is this a known scuaeaat 
if -CONDCSTS$SV_COND_ID] GEQU .ERR_D[-1) 
Q = UPLIT BYTE(ZASCIC "NOMSG', ZASCIC ‘Message number ‘) 


ERR pf acl apa COND_101); 
P= CHEMOVE ( Q 0 ); 


Q= .Q + 
CHSWCHAR_A ° Pi 
CHSWCHAR_ “Ae * P23 


Index of first (if any) FAO parameter 

X = FAO_COUNT+1; 

: Look for and substitute any !AS in the control string 
BEGIN 


AL ZELSE OWN FI 
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BUT MSG CCHSDIFF(.P.8C02) B02); 


SEV = UPLIT BYTE(2,0,3,1,4,5,6,7): VECTORC BYTE); 


t_SEVC.CONDCSTS$V_SEVERITY]]; 
TRU .SOR_SEV 


BLISS(BLISS32) 


V = .SEV; 
S = .COND OR STSS$M_INHIB_MSG; 


Woammnveazwz Q<< 
—m Zoom 


UC, EXSWAR, EXSERR, 
EV, EXSSEV, EXSSEV ): VECTOR; 
$s 


EV] OR STS$SM_INHIB_MSG; 


ZF 1; 
END; 


Abort if the severity is fatal (or worse) 
Z1F XBLISS(BLISS16) 
IF .SOR_SEV GEQU 4 THEN EXST$S( .SOR_STS ); 
RETURN 1; ! Just resignal 
END 


0000 00000 COND_HAND: 


WORD $ays nothing 
50 0918 8F 3C 0000 MOVZWL #2328, RO 
04 0000 RET 


Routine Base: S$CODE$ + 0057 
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ROUTINE SRTTRN = 

hoe 

FUNCTIONAL DESCRIPTION: 

This is the main entry point for the spec file translator. 

| FORMAL PARAMETERS: 

NONE 

{ IMPLICIT INPUTS: 

| NONE 

i IMPLICIT OUTPUTS: 

NONE 

| ROUTINE VALUE: 

Status code. 

i SIDE EFFECTS: 

NONE 

BEGIN 
LOCAL . 


ENABLE 
COND_HAND ; 


: Initialize our storage 
CHSFILL( 0, CLR_100) = CLR_OCOJ, CLR_OCO ); 
Initialize the severity and message to success 


SOR_SEV = 0; 
SOR-STS = %BLISS32(SS$_NORMAL) XBLISS16(EX$SUC); 


out _ps¢fo] = OUT_WIDTH: 
OUT~DSCL1] = OUT~BUFLO); 


INIT_10(); 
ASCENDING = TRUE; 


$ to: 
Output Sriginal file as comments 
; Process the header Line 


v04-000 


II 


SANS 


umn 


LS ea 
=—OODONOUNL WN 


SSNS 
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COO OD OD ISIN SSN SSD DDD IEPA AAD IIIS BE 
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Define the fields 


Make a second pass 9 : 
Describe the fields 
process the ay tseq line 
Describe conditions 


Make a third pass to: 
Describe omits/includes and keys 


LINE_SEQ = FALSE; 
EBCDIC = FALSE; 
PROCESS = XC'R 
LINE_NUM = =1; 
PASS = 0; 
WHILE TRUE DO 
BEGIN 
PASS = .PASS + 1; 
SELECTONE .PASS OF 
1]:BEGIN 
PUT_TEXT(LENADR_('!+#+")); 
PUT“LINE(); 
END; 
(2):BEGIN 
PUT_TEXT(LENADR_('!==")); 
PUT"LINE(); 
SELECTONE « “PROCESS OF 
tR! PUT_TEXT(LENADR_('/',X_PROC,"=",X_RECD)); 
'T'): PUT-TEXT(LENADR~('/'.X"PROC, '=",X-TAG)); 
tA‘): PUT-TEXT(LENADR~('/'.X"PROC, '=",X-ADDR) 5; 
"J! PUT~TEXT(LENADR~('/*,X~PROC, "=".X~INDX)); 
CoTHERUISE): 0; 


IF .EBCDIC 
THEN 


E 
PUT_TEXT(LENADR_('/",X_COLL,*=(",X_SEQU,":',X_EBC,")')); 


efine all fields that will be needed 
| ee actually issue text to describe them 


D 

T 

A 

F_SUBFIELDS(); 

er FIELDS(. FLD. ROOT); 
(3):BEG 


TES; 
Initialize the current record format 


SORT 2° Rt iis SRTTRN 


<32 V4.0=742 


so, describe subfields that are used oy key specifications. 
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13 
1h-se =1984 01:11: AX-11 Bliss-32 V4.0-74 p 
12-86-1382 OF: hi 28 SORT32.SRC SRF THN O3o04 waht (3 
: 509 0800 FMT_CURR = FMT_ROOT = ZFIELDEXPAND(FMT_NEXT,0O); 
; ry 601 Start counting conditions from zero 
; ar 08 COND_NUM = 0; 
; ay 8? } Get a Line. Check for a header record, and an altseq record 
; £16 607 GET_LINE(); 
s fri 8 IF .LINE TYPE EQL HEADER_LINE THEN DO_HEADER(); 
: at £08 IF .LINE_TYPE EQL ALTSEQ_LINE THEN DO_ALTSEQ(); 
; f , eH Get the rest of the records 
; , : asi§ WHILE .LINE_TYPE NEQ 0 DO DO_RECORD(); 
; 735 si? Exit the loop if this was the last pass 
; g 6 817 if .PASS EQL 3 THEN EXITLOOP; 
; Hs dh Switch to the temporary file, if needed 
; 730 08 1 iF .TMP_FABCFABSW_IFI] WEQ 0 THEN CUR_RAB = TMP_RABLBASE_]; 
3 673 08 § CUR_RABCRABSL_CTXJ = SRT TRNS_READERR; 
; £3¢ 08 ; SREDIND ( RAB=CUR_RABLBASE_J, ERR=REPORT_IO_ERROR ); 
Bo | 
; r $ 3. ; Flush the output, and close the files 
; 829 PUT_LINE(); 
; 08 9 CLOSE_FILES(); 
; i § } Exit with status 
; L 0834 ZIF XBLISS(BLISS16) 
3 U 4 5 ZTHEN 
: U 3 § EXST$S( .SOR_STS ); 
; 88 a RETURN .SOR_STS; 
3 0839 END; 
-PSECT SPLITS,NOWRT ,NOEXE,2 
B 2B 21 00 oF P.AAD: .ASCII \!+4\ ; 
1 11 P.AAE: .ASCII \!--\ F 
3. 45 2? D 45 43 4F f i P.AAF: .ASCII \/PROCESS=RECORD\ 3 
7 41 4 D 45 4 4F F P.AAG: .ASCII \/PROCESS=TAG\ : 
4 44 41 35D 45 43 4F ; P.AAH: .ASCII \/PROCESS=ADDRESS\ ; 
4 4— 49 3D 23 3 45 43 4F 52 9 F F P.AAIL: .ASCII \/PROCESS=INDEX\ : 
3 SF 47 af 4 4 4) $f és 4F 4 F 4D P.AAJ: .ASCII \/COLLATING_SEQUENCE=(SEQUENCE :EBCDIC)\ 3 
—E 45 55 51 45 3 ‘8 D 45 4 | é 5¢ : 
49 44 435 42 4 6B : 
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-EXTRN SYSSREWIND 3} 

.PSECT $CODE$,NOWRT,2 ; 

O7FC 000 SRTTRN: .WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 3 0685 : 

5A 0 v CF 9£ MOVAB PUT_LINE, R10 : 31 

9 v CF 9E 0000 MOVAB PUT TEXT. R9 : 7] 

38 Oo' CF 3E 00006 MOVAB P.AAD, RB ; : 1 

3 OO' CF 9E 0001 MOVAB CUR_RAB, R7 ; :] 

g OOS tF ODE O00I8 pone PASS : 0714 3] 

0048 8F 00 6E : O9 Be p movcS #0, (SP), #0, #72, CLR_O : O78 :] 
oy UR BB ge mae, el i 
FO? 47 BA 00 6 MOVZBL #71, OUT_DSC + 0730 : 1 
i 8 gm |i 
08 Ab 1 6 0946 MOVL #1. ASCENDING : a 31 

Fe AB D4 00 44 CLRL LINE_SEQ + 0753 71 

08 A6 D4 00047 CLRL EBCD C + 0754 71 

04 Ab 52. BF OA OO04A MOVZBL #82, PROCESS + 0755 71 

FO A 01 CE 0004F MNEGL #1, LINE_ + 0756 71 

66 D4 00053 CLRL. PASS : 0758 31 

£6 D6 00055 1$: INCL PASS : 0762 71 

50 66 DO 00057 MOVL PASS, RO : 0764 71 

01 50 D1 0005A CMPL = RO, 1 ; 0766 i] 

38 Db O00SF PUSHL RB ; 0767 Z 

03 DD 00061 PUSHL Re : 31 

69 02 FB 00063 CALLS #2, PUT_TEXT : > 1 

6A 00 FB 00066 CALLS #0. PUT“LINE : 0768 71 

6E 11 00069 BRB 9$ > 0764 : 1 

. ie a te peddle 8 

03 A8& 9F 000 PUSHAB P.AAE : 0771 71 

3 pd 0007 PUSHL # : :1 

69 ; FB 0007 CALLS #2, PUT_TEXT : > 1 
re hh ces BH) 
00000052 = BF 53 D1 Sore CMPL Re. 82° : $4 71 
12 00 BNEG = 3 ; :1 

06 A& 9F 000 PUSHAB P.AAF ; 31 

2) en ey : : 

00000054 8F $ p1 F 3$: CMPL Re. #84 : 0776 31 
2 BNEQ 4 : :1 

15 AB 99F 0009 PUSHAB P.AAG : 3] 

ie a ay : | 

00000041 = 8F 33 p} Hi 4$: cHPL ee. #65 0777 ; i 
21 ag oF Ag PUSHAB P.AAH : :1 

1 pp AB PUSHL #16 ; : 1 

00000049 8F 3 1 OOOAr 5S ORPL ORD #73 : 0778 7. 
* B6 BNE 7 : $1 
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31 AB OF 00088 PUSHAB  P.AAI : : 

0 DD 000BB PUSHL j : : 4 

69 FB Bb $$ CALLS # PUT TEXT : : 1 

8 08 A f CO 7$ BLBC EBCDIC,~8 : : 1 

F AB OF ca PUSHAB : : 1 

DD ¢ PUSHL # : : 3 

69 3 FB O00C9 CALLS #2, PUT_TEXT : :] 

0000v CF FB ce 8$: CALLS #0, DEF-SUBFIELDS : : 
EO Ab DD 0000 PUSHL FLO _RooT : 3 7 

0000v CF 01 FB 000D4 CALLS #1, DEF FIELDS : :] 
EB Ab E4 Ab 3 09 9S: MOVAB FMf_ROOT, FMT_CURR : | 
FC Ab D DE CLRL CON ; i] 

0000v CF 00 FB E CALLS #0, GET_LINE : :] 
01 EC Ag bo} OE6 cHPL re #1 : : ! 

0000v CF 88 FB OOOEC CALLS #0, DO_HEADER : 3] 
02 EC Ag pi OOF 10$: CMPL INE_TYPE, #2 F : ! 

0000v CF 8 é Mit CALLS #0, DO_ALTSEQ : 31 
EC Ag D5 OOOFC 11$:  TSTL LINE_TYPE ; : 1 

07 13 OOOFF BEQL ; : 1 

0000v CF 00 FB a19¢ CALLS #0, DO_RECORD ; 31 
03 66 D1 001 § 12$: CMPL PASS, #3 : 31 

26 13 00108 BEQL ; 31 

035A C 83 0010D TSTW § TMP_FAB+2 ; 3 

05 13 00111 BEQL 138 : 31 

67 O3A8 C7 4 00113 MOVAB TMP_RAB, CUR_RAB F : 1 

50 67 DO 00118 13$:  MOVL  CURTRAB, R : 31 

18 AQ 001C10B2 BF DO 00118 MOVL #1839282, 24(RO) : 31 
0000v cr 9F 001 PUSHAB REPORT_IO_ERROR : 31 

0 DD 00127 PUSHL R ; 31 

000000006 00 08 FB 00129 CALLS #2, SYSSREWIND ; 31 
FF 31 001 : BRW 1 : 31 

6A 09 FB 00133 14$: CALLS #0, PUT_LINE ; .) 

0000v CF 0 FB 00136 CALLS #0, CLOSE FILES : 31 
50 1c 6 0 00138 MOVE —-SOR_STS, RO ; : | 

0006 0140 15$: «WORD Save nothing 3 31 

7E D4 O14 CLRL 0s = (SP) : 31 

5 bb 14 PUSHL SP ; 3:1 

7E 04 AC D 00146 MOVQ. 4 (AP), -(SP) ; 31 

FEA9 CF 03 FB O14, CALLS #3, COND_HAND ; 31 
04 0014F RET ; 2 | 

; Routine Size: 336 bytes, Routine Base: S$CODE$ + O05F ; ! 
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1 
OUTINE GETFILENAME (FAB: REF SFAB_DECL) = 


1 


Address of FAB 


VECTOR(2]; 


This routine returns a string descriptor for a file. 
: REF SNAM_DECL; 


Address of string descriptor for file name 


DESC: 


FAB 


FUNCTIONAL DESCRIPTION: 
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-PSECT S$CODES,NOWRT,2 


0004 00000 GETFILENAME: 
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; Routine Size: 
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v04-000 122868 382 Oy 10:8 SORTS2 SRE SRTTRN.B32; 1 . (35 
; 138 oe ; i ROUTINE REPORT_IO_ERROR (FRAB: REF BLOCKC,BYTE]): CALL = 
; O8 > 3 {ee 
; 08 § 1! 
: £38 et : FUNCTIONAL DESCRIPTION: 
; 800 O88 1! This routine signals an 1/0 error. 
; 801 90 1! 
H ° 0891 1 ! INPUTS: 
; 80 95 1! 
; 804 0895 1! FRAB The FAB or the RAB which got the error 
; 805 baee 1! The SL_CTX field of the FAB/RAB must contain the 
; 806 95 1! error Code to eimel 
; 807 0896 1! (SHR$_OPENIN/OPENOUT/READERR/WRITEERR/CLOSEIN/CLOSEOUT) 
; 808 0897 1! If FRAB is a RAB, then RABSL_FAB must point to the FAB 
; 809 0898 1! In either case, the FAB must point to a valid NAM block 
; 810 0899 1! with both the expanded and resultant name strings in 
; 811 0900 1! order for consistent error reporting. 
; si¢ 0901 1! 
; 81 0902 1 ! OUTPUTS: 
> 6814 0903 1! 
; 815 0904 1! The error is signalled. RMS$_EOF is not signalled 
; 816 0905 i! 
: 817 0906 1 ! ROUTINE VALUE: 
: 3i8 0907 1! 
; 819 0908 1! The $L_STS field of FRAB is returned 
; 820 0909 1! 
; 821 0910 1 !-- 
; os¢ 0911 BEGIN 
H BS? bai§ IF .FRABCRABSL_STS] NEQ RMS$_EOF 
3; 82> 0914 SIGNAL (.FRABCFABSL_CTX], 1 
; 826 0915 GETFILENAME((IF .FRABCFABSB_B1D) EQL FABSC_BID 
; 827 0916 § THEN FRABCBASE_) ELSE .FRABCRABSL_FABI)), 
H 3 a4 4 -FRABCFABSL_STS], .FRABCFABSL_STVJ); 
; 830 0919 : RETURN .FRABCFABSL_STS); 
3g 6831 0920 1 END; 


0004 00000 REPORT_IO_ ERROR: 
.@OR Save R2 ; 0883 
52 04 AC 00 00002 MOVL ti) Re 3; 0912 
0001827A_ —s BFF 08 4 | a000e tava is §, #98938 : 
7 08 A 70 3 MOVQ (R2), =(SP) 3; 0917 
0 91 00014 CMPB (R2), #3 3; 0915 
4 12 Baie BNEQ A$ 3 
dD 19 PUSHL R 3; 0916 
03 «(11 1B BRB eR 3 
3C A2 0D 18 1$: PUSHL (R2) : 
AS” sAF iH 43 8 34 2s: cube 40 GETF ILENAME : 0915 
1 0D 00026 PUSHL #1 : 0914 
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; 864 0951 1 ROUTINE GET_FILE_SPEC( 

H ge? $84 1 DES C: REF VECTOR #4 

3 r¢ 9 1 FNA: REF VECTOR 

: 86 394 1 FNS: REF VECTORC1,BYTE) 

; 68 955 1 ): NOVALUE = 

; 869 228 1 !4+4 

: B70 824 i FUNCTIONAL DESCRIPTION: 

: He $986 i Ext t fil f DESC j h dd d lt h 
3 H xtract one e name strin rom storing the address an engt 
‘ are 849 : in FNA and FNS reapectively. and updating D Esco . 
; Be b3e8 1 ! FORMAL PARAMETERS: 

$ ere 0964 1! 

3 78 0965 1! NONE 

; 879 0966 1! 

; 880 0967 1°! IMPLICIT INPUTS: 

; 881 0968 1! 

; Ht) 0969 1! NONE 

; #88 0970 1! 

; 884 0971 1 =! IMPLICIT OUTPUTS: 

; 885 9444 1! 

; 886 09753 1! NONE 

; 887 0974 1! 

; 888 0975 1 =! ROUTINE VALUE: 

3; 889 0976 1! 

; 890 0977 1! NONE 

; 891 0978 1! 

3 536 0979 1°! SIDE EFFECTS: 

; 89 0980 1! 

; 894 0981 1! NONE 

; 895 84-04 1! 

; 896 0985 1 !-- 

; 897 0984 BEGIN 

; 898 0985 LOCAL 

; 899 0986 PTR; 

; 900 0987 

> 901 0988 ! Find the beginning of the file name string 

3 o08 0989 ! 

; 90 990 WHILE TRUE DO 

: 904 991 BEGIN 

; 905 99 PTR = CHSFIND_NOT_CH(.DESCCO], .DESCL1) gy *) 
; 906 099 IF CHSFAIL(.PTR) THEN PTR = CHSPLUS (DESC FI bESCCO)); 
3 st B38 pEset od = CHSDIFF (CHSPLUS( .DESCLI » »DESCLO j, PTR); 
; ° R; 

; 909 96 IF DESCEOS” Eat 0 THEN EXITLOOP; 

: 910 99 IF CHSRCHAR(. PRS t'2? NEQ £C‘/* THEN EXITLOOP; 
; «911 4 GET_QUAL (DESC[0J); 

: Big { — 

3 a : 1 : Store the file name string's address 

3 28 1 i FNACO) = .PTR; 

: 318 1 5 ' Check f Ll si 

3 4 ec or an equal sign 

7; 919 1 $ ! ’ . 

; 920 1 IF CHSRCHAR(.PTR) EQL %C'=' 
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THEN 
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RTTRN 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 
04-000 12286 8=1 382 94:1:8e {SORT 2.SRC SRITHN OS of4 
1309 1390 1 ROUTINE DO_ALTSEQ: NOVALUE = 

We TB. da 

1 \¢ 1393 1! 

! 1? } e } FUNCTIONAL DESCRIPTION: 

1 iF } 38 : Translates an alternate collating sequence line. 

1 i$ 1 38 1 | FORMAL PARAMETERS: 

1318 1399 1! 

1319 1400 1! NONE 

1320 1491 1! 

1321 14 § 1 ! IMPLICIT INPUTS: 

1 1403 1! 

1 1404 1! NONE 

1324 1405 1! 

1325 1408 1 ! IMPLICIT OUTPUTS: 

1399 1208 | i NONE 

1328 1409 1! 

1329 1410 1 ! ROUTINE VALUE: 

1331 lee 1 i 0 or 1 

! or 

1 7 1218 1! 

1 1414 1 ! SIDE EFFECTS: 

We UN Tow 

1336 1219 1! 

HEIR] vores: 

1339 1420 1! There is a basic difference between how collating values are specified 
1340 1421 1! in the old format spec file and the new format. In the old format, 
1341 14 $ 1! oct! = oct2 means that: 

1306 14 1! character oct! is given the collating value oct2, 

1 1424 1! while in the new format, oct! = oct2 means: 

Hf a) 1¢ 5 ' } character oct! is given the collating value of character oct2. 
1344 14 5 1} In order to translate this, we maintain a table representing the old 
1% 14 8 1! pitas, sequence table. When we make a modification, we search for 
1348 14 1! a character that has that collating value (or is closes, and make the 
1349 1430 1! appropriate modification. 

1350 1431 1 !<< 

1351 14 g BEGIN 

1 26 14 LOCAL 

' 37 6 : ste: VECTOR(256, BYTE), 

1355 14 6 FIRST 

36 14 cpoAIR PIR: REF VECTORC BYTE); 

1 38 M14 § STR_FIRST = 

135 1440 ZSTRING('/*,X_COLL,*=(",X_SEQU,*:",X_ASC,", ",M_MODF,":( ') %; 
tne 

1 § 1248 

1 1444 

1 1445 

1365 1446 


BEGIN 
DO GET_LINE() UNTIL .LINE_TYPE NEQ ALTSEQ_LINE; 
RETURN; 
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END; 
Initialize the collating sequence table 
DECR I FROM 255 TO 0 DO SEQC.1) = .1; 
Check that user defined sequence has been requested 
if - i -ALTSEQ 
SOR_ERROR(SRTTRNS_UNX_ALTSEQ); 


SNS NII NNO OOO 


PEN OODONAUE WN“ OOONO 


Indicate that we haven't written any text yet 
FIRST = TRUE; 


WAN AWIAW NNN AWA 


While there are altseq Lines 
WHILE TRUE DO 
BEGIN 


90909 SI NINN SINS IO PAA AAA AAA A MMMIUMIUIUIUIVIVIVIT ES £ 


3 3 14 

3 1 14 

31 14 

3; } 14 

31 14 

3; 14 

. 7 14 

71 1454 

3 1 1455 

: 1 14 : 

3 1 14 

3 1 14 4 

3 14 

3 1 1460 

8 3 1461 

31 14 : 

: 1 14 

71 1464 

31 1465 

ie ig 

: i t4 1? Look for max of groups of 6 octal digits 
: 1389 1470 INCRA PAIR_PTR FROM INP_BUFC8] TO INP_BUFL74] BY 6 DO 
: 1390 14 1 4 BEGIN 

; 1382 1278 PAIR_PTR: REF VECTORC,BYTE); 

; 139 1474 4 LOCAL 

: 1394 1475 4 CH1, CH2 

; 1395 14 é 4 IX: REF VECTORC, BYTE); 

: 1397 1? 8 2 Should not be any blanks in next 6 columns 
; 1399 14 9 4 if NOT CHSFAIL(CHSFIND_CH(6, .PAIR_PTR, %C' ')) THEN EXITLOOP; 
: it ot {4 ? Fetch the two numbers 

: 1408 1484 4 CH1 = CVT_OTB(PAIR PTREQD) 

; 1406 14 5 4 CH2 = CVT~OTB(PAIR~PTRE3)); 

: 1308 1? ? Find a character that has nearly the same collating value 
; 1408 1489 4 DECR 1 FROM .CH2 TO 0 DO 

> 1410 129% IX = CHSF IND CH( 256, SEQCO), .1 ); 
; 1414 1498 ; If Not CHSFATIL(.1X) THEN EXITLOOP; 
: 1218 1494 4 IF CHSFAIL(.1X) THEN 

; 1414 1495 4 INCR 1 FROM .CH2+1 TO 255 DO 

; 1416 1499 ; IX = CHSF IND CH( 256, SEQCO), .1 ); 
3 141 1498 IF NOT CHSFATL(.1X) THEN EXITLOOP; 
Hi 183 Be 

> 1420 1 4 IF .FIRST 

+ 1421 1 : 4 THEN PUT_TEXT(LENADR_(STR FIRST)) 

+ 1422 1 4 ELSE PUT TEXT(LENADR7(", °)); 
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5 1424 1505 4 PUT_TEXT(LENADR_ ("XO"), 
> 1625 1 6 4 PAIR TREO}. 
; 14 $ 44 EHAREDONT 2°%0'), (SELECTONE SIGN(.CH2 = CHSRCHAR(.IX)) OF 
: 1428 1509 -1): UPLIT BYTE(' < %0') 
+ 1429 1510 0}: UPLIT BYTE(' = %0 RF 
; 14 6 1 ; Cel: UPLIT BYTE(’ > %0") 
: 143¢ 1318 4 3, CVE BTOCCHSDIFF(.IX, Seaton»); 
; 1 : HE ? : Update the collating sequence table 
: 14 1517 4 SEQC.CH1] = .CH2; 
1 ie eS 
3 1435 1 y : Look for next altseq 
; 16a 13¢¢ GET_LINE); 
> 144 1524 IF .LINE_TYPE NEQ ALTSEQ_LINE THEN EXITLOOP; 
> 1444 1525 ° ee GS SeTTLe 
gs mm 
1448 13 ; Se parentheses; through processing the altseq 
> 1450 1531 THEN PUT_TEXT(LENADR_(')")) 
> 1451 133¢ ELSE PUT TEXT(LENADR~("))")); 
3 e386 153 
: 145 1534 1 END; 
.PSECT $PLITS,NOWRT,NOEXE,2 
55 51 45 53 SF 47 4E 49 54 41 GC 4C 4F 43 2F OQOOAO P.AAT: .ASCII \/COLLATING SEQUENCE=(SEQUENCE:ASCII, MOD\ ; 
3a 45 43 « 4E 45 «55 «510«(45 «530 (28 3D 4s 43 4 45 OOOAF m ; 
44 4F 4D 20 2c 49 49 43 53 41 OBE ; 
20 28 3A 4E 4F 49 54 41 43 49 46 49 C sASCII \IFICATION:( \ F 
2 D4 P.AAU: .ASCII \, \ : 
GF D6 P.AAV: .<ASCII \£O\ : 
4F 25 C D8 P.AAW: ASCII \ < %O\ : 
4F 3 D 6 DD P.AAX: ASCII \ = %O\ : 
4F E E2 P.AAY: ASCII \ > %O\ : 
O0E P. AAZ: <ASCII \)\ : 
29 29 OOOE8 PABA: ASCII \))\ : 
.PSECT $CODE$,NOWRT,2 
OFFC 00000 DO_ALTSEQ: 
.WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 > 1390 
B v CF 9€ 3 MOVAB PUT _TEXf, R11 F 
A ' CF OE MOVAB LINE TYPE. R10 ; 
9 ' CF 9€ C MOVAB P.AAT, R : 
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v04=000 102 380-1 984 93:10:84 SORT 2 Re SRITRN N3074 9°18) v04 
: 1433 1 5 1 ROUTINE PUT_NEST(NESTED): NOVALUE = s 
3 14 ; 1 ; IF_.NESTED $1 
> 1458 1 § THEN 3] 
; 1459 1 BEGIN : 1 
; 1460 1540 PUT TEXT (LENADR. C* "D039 :] 
> 1461 1541 PUT-LINE(1); 31 
; 1468 1 4g END 7) 
; 146 154 ELSE i 1 
> 1464 1544 PUT_TEXT(LENADR_('/')); 3] 
; 1465 1545 1 END; : | 
2 
-PSECT $PLITS,NOWRT,NOEXE,2 ; } 
g¢ QOOEA P.ABB: .ASCII \,\ : :] 
F QOOEB P.ABC: .ASCII \/\ : : ! 
. 
~PSECT S$CODE$,NOWRT,2 : ! 
0000 00000 PUT_NEST: i] 
-WORD Save nothing ; 1535 :] 
13 04 AC £9 00002 BLBC = NESTED, 1$ ; 1537 :] 
0000' CF 9F 00006 PUSHAB  P.ABB ; 1540 7] 
1 0D BOR0A PUSHL #1 j :] 
0000v CF 2 FB 0000C CALLS #2, PUT_TEXT ; 7] 
1 0D 99011 PUSHL > 1541 31 
0000v CF 01 FB 00015 CALLS #1, PUT_LINE ; : 1 
94 0 018 RET ; 1537 $7 
0000" CF 9F 00019 1S: PUSHAB P.ABC > 1544 : 1 
01 DD 00010 PUSHL #1 : 71 
0000v CF 02 FB OO01F CALLS #2, PUT_TEXT ; 33 
04 00024 RET ; 1545 : 
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pReCENe snes 
FLD_NEXT,0); 


j= 


pass: 


FFLD = FFLDCFFLD_NEXT] = GET_FFLD(.INP_BUFC17),0); 
% 
7 

Describe the field. 


B 

t 
-PASS EQL 3 THEN SOR_ERROR(SRTTRNS$_UNX_FORCE); 
PASS EQL 3 


!' Unconditional? 
Describe the condition(s). 


On the third 
PUT_NEST(.NESTED); 


Define the field. 
On the second pass: 


On the first pass: 
BEGIN 


E 
R 
( 
Lots of fun. 
We have a conditional force field. 


IF .PASS EQL 1 
GET_LINE(); 
IF_.PASS EQL 3 


BEGIN 
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H 16 | 
SRTTRN 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 Page 60. 
¥04=000 er eentaBe hide = FaMaTh Pk hsgcae Me 2354 9° 38) 
.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 1571 
B v CF 9E 0 g OVAB GET_DEFN, R11 : 
A v CF 9E MOVAB PUT-TEXT. R10 : | 
9 v CF 9E c MOVAB GET-FFLD, R9 : 
8 v CF 9€ MOVAB NEWTKEY, RB : 
00' CF 9E 00016 MOVAB P.ABE, R7 : | 
é F7EA CF 9E 0001 MOV SOR_ERROR, R6 ; 
00 0: CF 3 MOVAB INP BUF+16, RS : 
4 000° cf MOV PASS, R4 : 
E 8 C A SUBL2 #8, §P ; 
04 eC AG OD D 1$: CMPL LINE _TYPE, ry ; 1607 
01 is } BEQL ; | 
FO AS g 034 2$: PUSHAB INP_BUF t 1612 
8 DD 037 PUSHL as 3 
0000v CF FB 00039 CALLS #2, UPCASE ; | 
50 F6 AS 9A 000 MOVZBL INP _BUF +6, RO + 1616 
46 BF 50 91 0004 CMPB. «RO, "#70 : 1618 | 
03 13 0004 BEQL r 
0148 31 0004 BRW 178 ek 
01 64 D1 00048 3$: CMPL _—sPASS, #1 > 1625) 
e7 12 0004 BNEQ 4$ ; 
E Db 0005 PUSHL SP : 1632 
11 DD 0005 PUSHL #17 ; 
0000v CF 02 FB 00054 CALLS #2, GET_VM ; 
32 6E 00 00059 MOVL FL R > 1633) 
08 A2 OOOIFFFF 8F D0 0005C MOVL #131071, 8(R2) : 
10 Ae 08 90 00064 MOVB » 16¢R2) : 1635) 
DD 00068 PUSHL : 1636 | 
68 01 FB 0006A CALLS #1, NEW_KEY : 
08 Ad 01 00 D8 AG OF 90060 INSV. ASCENDING, #0, #1, 8(RO) ; 
52 o¢ CO 00 4 ADDL2 , FFLD : 1637) 
20 02 AS 91 00077 4s: CMPB NP’BUF+18, #32 + 1641 | 
0— 13 90078 BEQL $ F 
03 64 01 0 07D CMPL PASS, #3 + 1643 
09 12 00080 BNEG 5$ ; 
0018084 8F oD 082 PUSHL #1867908 ; 
66 01 FB 000 CALLS #1, SOR_ERROR : | 
20 65 91 O68 5$: CMPB NP_BUF716, #32 + 1647 
17 if 0 BNEQ : 
01 64 D CMPL _—s~ PASS, #1 : 1652 
OF 12 0009 BNEG 6$ F 
ps 09 CLRL = = ( SP) : 1654) 
3 01 AS OA 097 MOVZBL INP_BUF+17, -(SP) ; 
6 F 98 CALLS , GET _FFLD : | 
$2 D 9E MOVL * (FFD) ; 
5 Al MOVL FFLD 3 
016¢ Ad 68: BRw i : 1664 | 
04 AE F OOOA7 7$: PUSHAB POS > 1692 
FC AS 9F OOOAA PUSHAB INP_BUF +12 : 
4 DD O00AD PUSHL ; 
0000v CF F AF CALLS +e gy .018 ; 
: £ B4 BLBS RO. 8S ; 
p B7 CMPL PASS, #2 > 1694. 
9 BA BNEQ Bs ; 
0018064 8F DD 8 PUSHL #1867876 > 1096 | 
6 1 FB 000C CALLS #1, SOR_ERROR ; | 
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P) 
# 
POS 
#3, TREE_INSERT 
RO, NAM 
PASS, RO 
RO, 7 
9 
#1, COND_NUM, RO 
Re COND_NUM 
INP_BUF+17, =(SP) 
#2,°GET_FFLD 
RO, (FFCD) 
RO, FFLD 
10$ 


a 
#1, COND_NUM, RO 
RQ, COND_NUM 

#1, CVT_BTO 
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46. PUT_TEXT 
#1, PUT_NAME 
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INP_BUF+16, -(SP) 
#1, ~CVT_BTO 


’ SE 


», UPCA 
NE_TYPE, #4 
NP_BUF+6, #70 
INP _BUF +18, #32 
INP _BUF +16, #32 
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SCENDING, 13% 
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#035. NAM 


#1, GET_DEFN 
PASS, #3 
$ 


NESTED 

#1, PUT_NEST 

P ,ABH 

#2, PUT_TEXT 

#1, PUT_NAME 

#1, CHECK_LENGTH 


RO, #78 
19 
PASS, #1 
21$ 


#8 
40 GET_DEFN 


& NEW_KEY 
ASCENDING, #0, #1, 8(RO) 
RO, #79 


#1, GET_DEFN 
#1, NEW KEY 
ASCENDING RI 
RI #0, #1, 8(RO) 
PASS, #1 

#1867812 

#1, SOR_ERROR 
#0, GET “LINE 
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18-5¢ #1984 01:11:5 
1ergee=t Re 94:14:82 
ROUTINE DO.RECORD: NOVALUE = 

i+ 


| FUNCTIONAL DESCRIPTION: 


Finds all fields associated with that include or omit. 
In pass 1, define the fields that will be needed. 
In pass 2, describe the condition. 
In pass 53, describe the omit/include. 
! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
0 or 1 
SIDE EFFECTS: 


UNCOND, 
NESTED: 


NESTED = FALSE; 
UNCOND = FALSE; 


Define a new record format 


FMT_CURR = .FMT_CURRCFMT_NEXT); 
IF FMT_CURRCBASE_] EQL O-THEN FMT_CURR = NEW_FMT(); 


IF _ .LINE_TYPE EQL RECORD_LINE 
THEN 
BEGIN 


4 CHSEQL(39-6, INP_BUFC6], 0, INP_BUF(6), ZC’ ") 


UNCOND = TRUE 
ELSE 
NESTED = TRUE; 


Process one record type corresponding to an include or an omit Line. 
a 
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Seeereo 1b-s i =13%% 91:1) :3¢ AX~1 -32 V me tte ao a 


14-Sep- SORT 2° Re SRITRN -B32; 


3 1876 1397 4 PUT my ae af 
: 187 1954 4 “GENADR =? ; 
; 1878 1955 4 INP ~eyFt16), ! The operator - 4 
> 1879 19 § 4 LENADR=(* *)); ‘4 
: 1880 195 : 3 4 
: 1881 1958 3 4 
: 1356 1959 ' Is there a second field or constant? 2 
: 188 1960 ' 3 4 
3 Ieee 1961 SELECTONE Bator ie OF ° 4 
; 1885 1298 T $4 
> 1886 196 “"* e 
3; 1887 1964 4 Par 
3; 1888 1965 4 N GET DEFN(19); ° 4 
; 1889 1966 4 th .PASS EQL 2 THEN PUT_NAME(.NAM) ; a 
3: 1890 1967 3 : : 
: 1891 1968 3 = arf $4 
3 1336 1969 4 BEGIN 34 
3; 189 1970 4 IF .PASS EQL 2 . 
> 1894 1971 4 34 
> 1895 19% 4 PUT_LITE(MINU(20, .INP_REC_SIZ-19), INP_BUFL19], .NAM); a 
> 1896 1973 3 END; 3 4 
: 1897 1974 3 COTHERWISE): 2 4 
: 1898 1975 4 N 3 
3; 1899 1976 4 IF .PASS EQL 2 5 4 
3; 1900 1977 4 THEN 3 4 
; 1901 1978 4 SOR_ERROR(SRTTRNS_INV_CONST); 7 
: 190 1979 ; D; 3 4 
; 190 1980 TES; 34 
> 1904 1981 3 24 
: 1905 1386 ; SELECTONE .PASS OF 3 4 
3; 1906 198 SET 3 4 
: 1907 1984 3 1]: FMT_CURRCFMT_COND] = .FMT_CURRCFMT_COND]) + 1; 3s ¢ 
; 1908 1985 gq: F Se ~TEXTCLENADR. ( *)°))3 s ¢ 
3; 1909 1986 | 
3; 1910 1987 3 

3 1911 1988 3 

: 1912 1989 ; GET_LINE(); 

> 1913 1990 

: 1914 1991 3 IF .LINE_TYPE NEQ RECORD_LINE OR .INP_BUFL6) EQL XC' ' 

3: 1915 1336 THEN F 

3; 1916 199 EXITLOOP; ! It's not a continuation 

; 1917 1994 

; 1918 1995 ' Convert to upper case 

3; 1919 19 ! 

3; 1920 199 UPCASE(.INP_REC_SIZ, INP_BUF); 

3 1921 1998 ; 

3 19 § 1999 ' Is it an ‘‘and’’ or an “‘or' 

3 19 $000 ! 

3: 1924 001 IF .PASS EQL 2 

3 136? 00 THEN 

3 19 $ 003 4 BEGIN 

: 192 004 4 SELECTONE .INP_BUF(6) OF | 

: 1928 005 4 if 

3: 1929 44 4 : PUT_TEXT(LENADR_(*° °,X a ee *)): 

; 1930 4 O*}: PUTTTERT(LENADR™C '°X7OR, *)) | 

: 1931 008 4 OTHERWISE]: § SOR_ ERROR (SATTRNG. INV. tant); 

: 1982 009 4 TES; | 
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SRTTRN 1hese -1984 01:11: AX-11 Bliss-32 V4.0-74 p 9 
04-000 1eree= ihe Phi1b:e 4 Feat L Bbiessze Mh. 0324 age 93 

29 47 GE 49 44 4E 45 43 53 45 44 09 2C 00173 P.ABW: ASCII \,\<9>\DESCENDING)\ ; 

33 41 54 41 44 0180 P.ABX: ASCII \BATA=\ : 

8 00185 P.ABY: ASCII \C(\ : 

9 0186 P.ABZ: ASCII \)\ : 

9 00187 P.ACA: ASCII \)\ : 


-PSECT $CODES,NOWRT,2 


EEK, POOUD PS FECNO Le Gove Af.25,06,08 Be.OP 00.00.N0.Rt 1839 
. ave . ’ ve . ’ ’ . Pt 
52 QO000V CF 9E 90002 MOVAB PUT_NAME, R11 : 
SA FBDE CF 9E 0000 MOVAB CVT~BTO, R10 : 
59 0000" CF 9E 0000C MOVAB INP~BUF+6, R9 : 
58 0000v CF 9E 00011 MOVAB PUT"TEXT, RB : 
57 0000' CF 9E 00016 MOVAB F.ABJ, R? : 
54 0000' CF 9E 0001B MOVAB PASS, R6 : 
54 7C 00020 CLRQ NESTED : 1878 
EB AG E8 B6 DO 000¢¢ MOVL § @FMT_CURR, FMT_CURR + 1883 
09 12 0002 BNEQ 1$ + 1884 
0000v CF 00 FB 00029 CALLS #0, NEW_FMT : 
EB Ab 50 00 000¢E MOVL RO. FMT-CURR : 
03 EC Ab D1 00032 1$ CMPL = LINE_TYPE, #3 + 1886 
58 12 00036 BNEQ : 
00 20 | 69 21 2D 00038 CMPCS #33, INP_BUF+6, #32, #0, INP_BUF+6 + 1890 
05 12 0003E BNEQ  2$ : 
55 01 DO 00040 MOVL #1, UNCOND + 1892 
03 11 00043 BRB 4, ; 
54 01 pO 00045 2s MOVL #1, NESTED + 1894 
50 66 DO 00048 3$ MOVL PASS, RO : 1896 
01 50 D1 0004B CMPL > 1898 
75 13 OO04E BEQL =-:10$ : 
02 50 Di 00050 CMPL RO, #2 : 1901 
38 12 00053 BNE : 
6D 55 £8 00055 BLBS  UNCOND, 10$ : 1902 
57 DD 00058 PUSHL 7 : 1908 
07 DD 0005A PUSHL #7 : 1905 
50 FC AG 01 C1 0005¢ ADDL3 #1, COND_NUM, RO : 1907 
FC A6 50 D0 00061 MOVL RO, COND_NUM 3 
50 DD 90063 PUSHL R : 
6A 01 FB 9067 CALLS #1, CVT_BTO : 
30 DD 00 A PUSHL R : 
03 oD 0006C PUSHL # : 1905 
EA A? OF O06E PUSHAB P.ABI > 1906 
16 DD 00 1 PUSHL #22 : 1905 
68 06 FB 0073 CALLS #6, PUT_TEXT : 
50 E8 Ab 0076 OVL FMT_CURR, RO : 1909 
52 10 AO 3C OO07A MOVZWL 16(RO), f : 
08 11 07 RB 5$ ; 
07 AZ? 9F 00080 4$ PUSHAB P.ABK > 1910 
01 DD 000 PUSHL #71 : 
6 FB 0 CALLS #2, PUT_TEXT : 
F F4 rt} SOBGEQ 4$ : 
11 00088 BRB 6s : 1896 
03 0 D1 0008D 6$ CMPL = RO, #3 : 191 
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SRTTRN 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-742 P 70 
04-000 1eree= TBs Phi1b:8e «Pea Bb iegsae Mh 03242 39 (91) 
331 90 7$: BNEQ 10$ ; : 
4F OF FF ag i¢ 038 CMPB INP_BUF +S, #79 + 1914 ; 
07 12 000 BNEQ $ : ; 
08 AZ 9F 00099 PUSHAB P.ABL + 1915 ; 
09 DD 0009C PUSHL #5 : ; 
5 11 0009 RB 9$ : : 
OD A? OF OA 8$: PUSHAB P.ABM + 1916 : 
08 DD 000A PUSHL a3 : ; 
68 0 FB BO0A 9$ CALLS #2, PUT_TEXT : : 
1A 55 £8 OOOA BLBS -_—«UNCOND, ~10$ + 1917 : 
50 FC AG 01 C1 000AB ADDL3 #1, COND_NUM, RO + 1921 ; 
FC AG 20 DO 00080 OVL RO, COND=NUM : 3 
0 DD 00084 PUSHL R : : 
6A 01 FB 086 CALLS #1, CVT_BTO : : 
50 DD 0008 PUSHL RO : ; 
03 DD 0008B PUSHL # + 1919 : 
15 A? 9F OO00BD PUSHAB P.ABN + 1920 ; 
11 DD 000C0 PUSHL + 1919 ; 
68 04 FB 900¢¢ CALLS #4, PUT_TEXT : ; 
03 EC A6 D1 b00¢ 10$:  CMPL  LINE_TYPE, #3 + 1928 ; 
08 12 000C9 BNEQ 11$ : ; 
08 55 €9 000CB BLBC _- UNCOND, 12$ + 1935 ; 
0000v CF 00 FB O0cE CALLS #0, GET_LINE : 1938 ; 
OOF4 31 000D3 11$ BRW 24$ + 1937 ; 
FA AS OF 00006 12$ PUSHAB INP_BUF + 1944 ; 
0186 ¢9 DD 00009 PUSHL INPTREC_SIZ : ; 
0000v CF 02 FB 000DD CALLS #2, UPCASE : : 
08 DD 000E2 PUSHL # + 1948 ; 
0000v CF 01 FB O00E4 CALLS #1, GET_DEFN : ; 
32 50 dO 000E9 MOVL : : 
66 D1 OO0EC CMPL PASS, #2 + 1949 : 
17 12 OOOEF BNEQ 138 : : 
52 DD O00F1 PUSHL NAM : 1952 ; 
6B 01 FB O00F3 CALLS #1, PUT_NAME : F 
27 AZ. OOF ~O00FS PUSHAB P.ABP : 1956 F 
01 DD 000F9 PUSHL # + 1955 : 
OA Ad 9F OO0FB PUSHAB INP_BUF +16 ; : 
0¢ DD 90 FE PUSHL #2 : : 
A? 9F 00 00 PUSHAB P.ABO + 1954 : 
01 DD 0010 PUSHL : 1955 : 
06 FB 00105 CALLS #6, PUT TEXT : ; 
AJ 9A 00108 13$: § MOVZBL INP _BUFFI , RO : 1961 ; 
50 91 0010C CMPB. sO, #70 > 1963 : 
1 12 00 6 BNEQ 14$ : ; 
13 DD 00 PUSHL # : 1965 : 
3) os aE 7 : 
66 D1 0011C > 1966 ; 
She aloe 3 3 
3 BD ROIS 3 3 
, tS 3 F 3 
7 1100 6 : 1961 : 
0 91 : 1968 : 
o) if C $ 3 
6 D E : 1970 ; 
5 de Baia ; : 
DD 3 : 1972 : 
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SRTTRN 16*Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 Page 72 
04-000 1erep=13bs Phi1h:8e 4 FaMaT Lo Pkasssze Ma -Oso 9 21) 
68 02 FB 001E8 CALLS #2, PUT_TEXT : ; 
04 AS DO OO1EB MOVL 4 (KEY), "FLD + 2031 ; 
19 12 OO1EF BNE : : 03¢ ; 
7E 08 AS 9A OO1F1 MOVZBL 8 (KEY), (SP) + 203 ; 
6A gi FB 1E8 CALLS #1, CVf_BTO 3 : 
g DD OO1F PUSHL : ; 
03 DD OO1FA PUSHL # + 2035 ; 
38 «= A?sOOF:«=OOTFC PUSHAB P,ABU + 2036 : 
02 DD OO1FF PUSHL # + 2035 ; 
68 4 FB 01 CALLS #4, PUT_TEXT : ; 
50 D8 Ag D 04 MOVL ASCENDING, AD + 2038 ; 
19 11 0 08 BRB + 2032 ; 
0c Ag D3 OA 28$: _—*TSTL 2(FLD) + 2044 : 
09 13 0020D BEQL ; $ 
14 BB 0020F PUSHR #*M<R2,R4> : 2046 3 
0000v CF 02 FB 00211 CALLS #2 PUT_FFLD : ; 
Q 11 00 18 BRB 30$ : : 
2 pd 00218 29$:  PUSHL FLD + 2050 ; 
68 01 FB OO21A CALLS #1, PUT_NAME ; ; 
50 08 A3 01 00 EF 0021D 30$: EXTZ2V. #0. #1, B(KEY), AD : 2051 ; 
07 50 E9 0223 31$:  BLBC AD, 32$ > 2053 ; 
3A A?sOOF:s «00226 PUSHAB P.ABV > 2054 ; 
0C DD 00229 PUSHL #i2 : : 
05 11 008 B BRB 33$ : F 
46 A? 9F 00 © 32$:  PUSHAB P.ABW + 2055 : 
OD DD 00230 PUSHL #13 : ; 
68 02 FB 00 32 33$: CALLS #2, PUT_TEXT : ; 
52 DS 0023 TSTL ~~ FLD + 2059 ; 
3F 613 00237 BEQL 36$ : ; 
9A 0c AB E9 00239 BLBC §NOSTRIP, 27$ > 206 : 
54 DD 00230 PUSHL NESTED : 206 ; 
0188 CA 01 FB 0023F CALLS #1, PUT_NEST : ; 
53. A? sOOF «00244 PUSHAB P.ABX : 2066 ; 
05 DD 00247 PUSHL #5 : F 
68 0 F BoSer CALLS *$ PUT_TEXT $ 3 
Oc A2 05 0024C¢ TSTL  12¢FLD) : 2069 : 
19 13 O024F BEQL  34$ : ; 
58 OA?O 00251 PUSHAB P.ABY : 2072 ; 
o1 DD 00254 PUSHL #1 : : 
68 2 FB 00256 CALLS #2, PUT_TEXT : ; 
14 BB 00259 PUSHR #*M<R2,R4> 3; 2073 3 
0000v CF 02 FB 00258 CALLS #2, PUT_FFLD ; 3 
59 A? 9F 00260 PUSHAB P.ABZ > 2074 : 
1 DD 63 PUSHL #i : ; 
68 é FB 0026 CALLS We PUT_TEXT : : 
11 00268 BRB 35§ + 2069 ; 
2 DD 0026A 34$ PUSHL FLD : 2079 ; 
6B 01 FB 0026C CALLS #1, PUT_NAME : : 
52 DD 0 oF 35$ PUSHL FL : 2080 
O1AD «CA 01 FB 1 CALLS #1, CHECK_LENGTH ; 
13 11 00 16 BRB + 2061 
08 F8 Ad E8 00278 36$:  BLBS ADDINCKEY, 37$ > 2085 
001¢808B 8F DD 0027 PUSHL #186791 ; 
FAO CA 1 FB CALLS #1, SOR_ERROR ; 
FB AG 1 p 7$:  MOVL #1. ADDINCKEY > 20 
FF49 31 8$: BRW 27 : 20 
04 EC Ab D1 —E 39$: CMPL  LINE_TYPE, #4 > 2094 
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Routine Base: $CODE$ + OCC1 


3¢ AX-1 
754 SORT32.SRCISRTITRN.B32; 


Bliss- 


14-Sep-1984 
ROUTINE GET_VM(SIZ, ADR: REF VECTORC1]): NOVALUE = 
LOCAL 
we 
archges UND (X) = (((X)+UPVAL=1) AND NOT ZUPVAL=1) 3; 
Uf XBLISS(@LISS32) AND K_NATIVE 
BEGIN 
EXTERNAL ROUTINE LIBSGET_VM; 
TATUS = LIBS$GET_VM(SIZ, ADRCO); 
IF Not STATUS TREN RETURN SOR_ERROR(.STATUS); 
XELSE 
BEGIN 
EXTERNAL 
MEM_O, 
MEM_1; 
OWN 
P: INITIAL (MEM_ 0); 
re. + RO ROUN D_(.$1Z); 
IF. P GEQA MEM~1 THEN RETURN SOR_ERROK(SRTTRNS_INSVIRMEM) ; 
MFI; 
CHSFILL(O, .$1Z, .ADRCOI): 
END; 
.EXTRN LIBSGET_VM 
003C 00000 GET_VM: .WORD Save R2,R3,R4,R5 
08 BC D4 90002 CLRL ADR 
08 AC DD 0000 PUSHL ADR 
04 AC 9F 00008 PUSHAB SIZ 
000000006 00 08 re 90008 CALLS #2, LIBSGET_VM 
08 é Ole LBS STATUS, 1$ 
50 DD 0001 PUSHL STATUS 
F323 CF 01 fe hed 5 #1, SOR_ERROR 
50 08 BC DO 0001D 1$ MOVL. ADR, RO 
6E 09 2c 30054 MOVCS #0, (SP), #0, SIZ, 
04 00028 RET 
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32 bytes, 


; Routine Size: 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + ODOA 


1 
SRTTRN 1b-Se 1984 :11: AX-11 Bliss-32 V4.0-74 P 76 
v04-000 Ve=8ep-1984 13:10:82 ESORTS2°SRESSATTRN: BSS; 298 i) | 
: 142 1 ROUTINE NEW_KEY(FLD: REF FLD_BLOCK, FMTX: REF FMT_BLOCK): CALL = | 
2 ho 
: 2071 145 i Insert FLD in the key List for the current format, just before the | 
3 ore 138 ' current key definition. Leave the current key Thode and return the 
: Ste 1? } address of the new key definition. 
; 2075 129 BUILTIN 
; O59 131 pT LPARAMETER: 
; 2078 1 j KEYADR: REF VECTORC1), | 
3 2079 1 KEY: REF KEY_BLOCK, 
; 2080 154 FMT: REF FMT BLOCK; | 
; 2081 155 IF NOT NULLPARAMETER(2) 
i: 2086 136 THEN «iT = FMTXLBASE | 
; 208 15 ELSE FMT = FMT CURRCBASE_J; 
; 2084 158 KEYADR = FMTCFMT_KEY ii 
; 2085 2°59 WHILE (KEY = .KEVADRCOJ) NEQ .FMTCFMT_CKEY] DO KEYADR = KEYCKEY_NEXT); 
3; 2086 ‘160 GET_VM(KEY_K_S i; » KEYADRE ie 
; 2087 161 BBLOCKC.KEVABRCOJ, KEY_NEXT] = KEYCBASE_); 
; 2088 16¢ KEY = REVADR ; 
; 2089 16 KEYCKEY FLD) = FLDCBASE_2; 
; 2090 164 RETURN REY(BASE_); 
; 2091 165 1 END; 
000C 00000 NEW_KEY:.WORD Save R2,R3 3 2142 
02 6c 91 00009 -"""CMPB CCAP), #2 : $138 
0B 1F 0000 BLSSU. _1$ 3 
08 Ac o 00007 TSTL 8( AP) : 
06 13 QOOOA BEQL 1$ : 
50 08 A d0 9000 MOVL FMTX, FMT ; 2156 
05 11 00010 BRB 2$ 3 
50 0000" CF oO 9001¢ 1 MOVL FMT_CURR, FMT > 2157 
3 04 AO 4 001 gs: MOVAB 4(RO), KEYADR : 2158 
5 $¢ D 90018 $: MOVL (KEYADR), KEY : 2159 
08 A0 D1 Og CMPL KEY, 8(FMT) : 
9 13 000 BEQL 4$ : 
52 DO 00024 MOVL KEY, KEYADR : 
F 11 00027 BRB 3$ 3 
; DD 99 9 4$: PUSHL KEVADR : 2160 
DD 8 PUSHL # ; 
86 AF 0¢ FB 99 D CALLS #2, GET_VM ; 
00 DO 00031 MOVL KEY, @OTKEYADR) : 3161 
62 06 96 5 MOVL (KEYADR), KEY ; 16¢ 
04 AB 04 AC DO 00038 MOVL FLD, 4(KEY) : 216 
50 53 D0 99 D MOVL KEY, RO > 2164 
04 00040 RET > 2165 
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& FF 


TREE_INSERT( 
POS, ~ 
$12 
dTYS = 
BEGIN 
LOCAL 
PTRADR: REF VECTORE 1], 
PTR: REF FLD_BLOCK: 


PTRADR = PLD. ROO 


WHILE (PTR = ROT RADRLO) NEQ 0 DO 

IF .POS LSS .PTRCFLD_POS) THEN PTRADR = PT 
ELIF .POS GTR .PTREFLD-POS) THEN PTRADR = PT 
ELIF .SIZ LSS .PTREFLD~S1Z] THEN PTRADR = PT 
ELIF .S1Z2 GTR .PTREFLD-SI2] THEN PTRADR = 
ELIF .DTY LSS .PTREFLD-DTY] THEN PTRADR = PT 
ELIE .DTY GTR .PTREFLDDTY] THEN PTRADR = PT 
Bo RETURN PTREBASE_); 


GET -VMCELD, k SIZE, PTRADRLO)); 
PTREF Hiead : 4 


PTR = .P A : 
PTR FLD “699 = .SI2: 
= .DTY;: 


PTRCFLD_DTY 
RETURN PTR(BASE_J; 
END; 
000C 00000 TREE_INSERT: 
. WORD 
$3 0000" CF 96 90002 MOVAB 
52 63 00 00007 1$: = MOVL 
41 13 0000A BEQL 
10 9 &D 00 cMPZV 
4 14 BGTR 
10 9 £D 00 CMPZV 
29 19 OF BLSS 
10 0 ef 00 CMPZV 
a 03 Op eae 
¢ 19 00 BLSS 
E CMPZV 
1 BLEQ 
D MOVL 
C9 11 00 BRB 
8 883 ay 
GEG 


:3¢ ot Blis scat V4.0-74 


ORT32. SRI SRTTRN.B32; 


Save 

FLD *acote sOTRADR 
(PTRADR). PTR 

#0, #16, 8(PTR), POS 
#0, #16, 8(PTR), POS 
#0, #16, 10(PTR), S12 
#0, #16, 10°PTR), SIZ 
#0, #8, 16(PTR), DTY 
PTR, PTRADR 

#0, #8, 16(PTR), DTY 
6$ 
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Routine Base: $CODE$ + 0D4B 
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V04-000 16-sep-1964 HEME CUCL EM Tata tee 


ROUTINE MINCOMPAT ( 
Ki: RE 


— 
~s 


; 199 1 

: 2128 00 1 F KEY_BLOCK, 

: 2129 01 1 Ke: REF KEY BLOCK 

: 2150 8 1 RESLEN: REF VECTORE1,WORDJ) = 

3; 2131 05 1 !4+ 

; 21 ¢ 06 1! 

: } ? 8? } Test two key descriptions for compatibility. 

3 $1 5 07 1! If the keys are compatible, return true, otherwise false. 

: 2136 08 1! If the keys are compatible, store their compatibility length in reslen. 

: 2137 09 1! This is used to split keys into several pieces, so that string keys will 

3 5i38 10 1 ! be compared with equal size (as the old spec tile did it), instead of padding 
: 5128 ie : } (as the new spec file will do it). 

3 2141 i 1 ! If (sometime) it's decided that keys of different datatypes are compatible 
; sitg 2215 : (for example, packed and decimal), reslen should be expressed in terms of k2. 
3 2144 § 16 1 !-=- 

> 2145 217 $ BEGIN 

: 2146 2218 LOCAL 

3 2147 2219 2 Fil: REF FLD_BLOCK, 

3: 2148 2220 2 Fe: REF FLD BLOCK; 

: 2149 2221 IF .KICKEY_ASCE] NEG .K2CKEY_ASCE] THEN RETURN FALSE; 

; 2150 $20¢ Fl = .KICKEY_FLD); T 22? Might this be zero? 

: 2151 5$5 2 F2 = .K2CKEY Ae ! 222 Might this be zero? 

: $126 224 § IF .FICFLD_DTY) NEQ .F2CFLD_DTY] THEN RETURN FALSE; 

3; 215 2225 SELECTONE .FICFLD_DTYJ] OF 

3 2154 2226 2 ET 

; 2155 2227 2 DSC$K_DTYPE_T]: 0; 

; $128 $ss6 § LOTHERGISE): IF -FICFLD_S12Z) NEQ .F2CFLD_SIZ] THEN RETURN FALSE; 

3; 2158 $595 2 RESLENLO] = MINU(.FICFLD_S1Z], .F2CFLD_S12Z]); 

3; 2159 2231 2 RETURN TRUE; 

; 2160 2232 1 END; 


0004 00000 apisogvemtaad” 


ORD Save R2 
50 04 AC 7D 00002 MOVQ~—-_-«K1,_RO 
52 08 Al 08 AO 8D 00006 XORB3 8(RO), 8(R1), R2 
34 S 3. 9900¢ BLBS R2, 3$ 
0 04 AO 00 0000F MOVL 4(RO), F1 
51 06 «AT pO 00013 MOVL  4(R1). F2 
33 10 AO 9A 0001 MOVZBL 16(F15, R2 
5 10 Al 91 6 1B CMPB—s-:- 16 (F 2). R? 
: 12 O001F BNEQ 3$ 
OE 91 00021 CMPB Re. #14 
07 13 00024 BEQ. Ss 
OA Al OA AO Bi 0 6 CMPW 3=s«10(F 1), 10(F2) 
16 12 B BNEQ 3$ 
50 0A AO 3C 0002D 18 MOVZWL 10¢F1), R 
OA Al 81 0 1 CMPW = =s«10(F 2). R 
) 04 IE 3 BGEQU <3 
50 0A Al 3C 000 MOVZWL (F2), RO 
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SRTTRN 16-5 “1984 01:11: AX-11 Bliss-32 V4.0-76 f 0 
04-000 12-8007] 3R2 94: 1h:8e = FAKST LBL isgeze ve .O324 age 8 
oc aC 59 80 00038 28: NOVY «RO, BRESLEN : 
1 BO iH mOVL #1, RO : 2231 
50 b4 ‘3 3$: CLRL = RO t 2232 
4 0004 RET ; 
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0 THEN RETURN; 
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ROUTINE DEF_SUBFIELDS: NOVALUE = 
BEGIN 
i Define any subfields that may be required due to key incompatibilities 
} in multiple record formats. 


AL 
FMT: REF FMT_BLOCK; 
Initialize the current key being worked on for each format. 


FMT = FMT_ROOT = ZFIELDEXPAND(FMT_NEXT,O): 
WHILE (FMT = .FMTCFMT_NEXTJ) NEQ 0 DO FMTCFMT_CKEY] = .FMTCFMT_KEYS); 


While there are more keys to be processed 
WHILE TRUE DO 
BEGIN 


LOCAL 
FLD: REF FLD_BLOCK, 
KEY: REF K 
MINKEY KEY_BLOCK, 
MINFLD: FLD-BLOCK, 
COMPAT; 


DOO OOWOWOMWMW MOM SANNA ANN 


OWONAUESWN OC OODNOUESWNOVDONOUSWINO 


Find a current key 
Fat FMT_ROOT - %FIELDEXPAND(FMT_NEXT,O); 
WHILE. (EMT = .FMTCEMT_NEXT]) NEQ 0 DO 


wooowon 
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EY BLOCK, 
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$n (KEY = .FMTCFMT_CKEY]) NEQ O THEN EXITLOOP; 

$08 Exit loop if all keys have been processed 

206 if KEYCBASE_) EQL 0 THEN EXITLOOP; 

$06 } Save this key 

208 MINKEYCKEY_FLD] = MINFLDCBASE_]; 

209 MINKEYCKEY-ASCEJ = .KEYCKEY_ASCE); | 
210 = ,KEYCKEY_FLDJ; ! 222 Might this be zero? 
211 2 MINFLDCFLD_SIZJ = .FLOCFLD_S1Z); | 
$i¢ ; MINFLDCFLD_DTY) = .FLDLFLD_DTYJ; 
314 § Assume that all the keys are compatible 

316 COMPAT = TRUE; 

218 ! Loop through the rest of the formats, determining compatibility 

$3? § and minimizing our description of the key. 

$54 29 WHILE (FMT = .FMTCFMT_NEXT]) NEQ 0 DO | 
$56 $3 Ken MINCOMPAT(” .FMTCFMT_CKEY), MINKEYCBASE_J, MINFLDCFLD_SIZ]) ) | 
3 3 COMPAT = FALSE; | 
: 6 9 ! Now that we have a short description, loop through all the | 
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#. 
1erSepm19be 95:10:54 — USOaTS2csne say TeN:832; 


T_ROOT = ZFIELDEXPAND(FMT_NEXT,0O); 
T = .FMTCFMT_NEXT)) +} 0 DO 
-FMTCFMT_CKEY]) NEQ 0 THEN ! More keys for this format? 


WORD; ! Size 


k for compatability of the current key with the minimum key. 
hey are compatible, check that the length hasn't changed. 


-KEYCKEY FLD]; ! 222 Might this be zero? 
NCOMPAT( MINKEYCBASE_J, .FMTCFMT_CKEYJ, T ) 


an 


GIN 
as - COMPAT 
BBLOCKEC NEW_KEY(O 
IF .T NEQ .FLOCFLO_SI 
THEN 
BEGIN 
i Break the key up into two pieces, by defining the short 


! key just before the current key, and updating the current 
key's length. 


gh hTCBASE 2). KEY_LIT J = 0; 


OS],.T..FLDCFLD_DTY)), 
= CKEYCKEY_ASCE); 


FLDCFLD_ 7; 
END 


ELSE 
BEGIN 


The keys are completely compatible, advance 
FMTCFMT_CKEY] = .KEYCKEY_NEXT); 
END; 

END 

ELSE 

BEGIN 

Add a constant key to distinguish the formats 

BBLOCKL NEW_KEY(O,FMTCBASE_J), KEY_LIT ] = 1; 


END; 
END; 


Initialize all the current key pointers. 


FMT = FMT_ROOT - ZF IELDEXPAND(FMT_NEXT,O): 
WHILE (FMT = .FMTCFMT_NEXTJ) NEQ O DO FMTCFMT_CKEY) = .FMTCFMT_KEYS); 


2 
SRTTRN bes -1984 211: AX-1 Liss-32 V4.0-74 
¥04-000 etiam ee Phe hg pote te pt 


Make another pass over the key definitions, 
combining adjacent constant keys. 


Although this is not strictly necessary, the output looks terrible 
if the user has aon different record formats, each with a key that 
incompatible in a different way. 


KEY =, 3 J) NEQ 0 THEN 
IF eSTERe? FLD) EGL 0 THEN CKEY = KEYCBASE_); 
IF CKEYEBASE 


EQ. 0 THEN EXITLOOP; 
Count the number of constant keys for this format. 


woooowovJono 


Dak teh th ah ah ahha 
2S 


3 CCNT = 1; 
KEY = CKEYCBASE_J; 
3 WHILE (KEY = 2KEYEKEY NEXT]) NEQ 0 DO 
IF .KEYCKEY_FLD) REQ O THEN EXITLOOP ELSE CCNT = .CCNT + 1; 


! Pass through all the formats, determining which formats 
have constant keys equal to this group. 


FMT = FMT_ROOT = ZF IELDEXPAND(FMT_NEXT,O); 


: 4 4 

" 5 5 

; 228 § 

; 2288 8 

3 89 

; 2290 60 

: 91 61 HILE TRUE DO 

; 38 $6 BEGIN 

3; 229 6 LOCAL 

: 2294 64 CKEY: REF KEY_BLOCK, 

: 2295 65 LIT: BYTE; 

: 229 96 

: 229 6 LIT = 0; 

3 § 98 68 

; $ 44 4 Advance all the format descriptions to constant keys (if any). 
3 5 01 71 CKEY = 0; 

; 4 ie FMT = FMT_ROOT = %FIELDEXPAND(FMT_NEXT,O); 

; 230 6 | WHILE (FMT = .FMTCFMT_NEXT]) NEQ 0 DO 

3 Sehe 374 4 BEGIN 

: 2305 375 4 LOCAL KEY: KEY_BLOCK; 

; 2306 376 4 KEY = FMTCFMT_CKEY]~- XF LELDEXPAND(KEY_NEXT 0); 
3 2307 377 4 WHILE (KEY = TKEYCKEY_NEXTJ) NEQ 0 DO 

; 2308 2378 4 IF .KEYCKEY_FLD) EQL 0 THEN EXITLOOP; 
3; 2309 379 4 FMTCFMT at = KEYCBASE_J; 

$ $319 $89 : JF REVCBASE. NEQ 0 THEN CKEY = KEYCBASE_); 
; g312 38¢ ; IF CKEYEBASE_) EQL 0 THEN EXITLOOP; ! ALL done 
3: 2314 387 WHILE TRUE DO 

3 Sei2 385 4 BEGIN 

3; 2316 386 4 LOCAL 

3; 2317 387 4 CCNT, 

; 2318 388 4 KEY: REF KEY_BLOCK; 

3 2319 89 4 

; 2320 90 4 ! Find the Last format with constant keys, 
; $35) 4 ; Checking that we don't accept non-constant keys. 
; $356 ; 5 4 CKEY = 0; 

> 2324 4 6 FMT = FMT_ROOT = XFIELDEXPAND(FMT_NEXT,O); 
3 $3 5 5 4 WHILE (FMT = .FMTCFMT_NEXT]J) Q dO 

3 6 $ 4 IF FMTCEMT_CKEY)) 

: 7 4 

3 8 8 4 

: $3 9 4 

: 0 4 

A 4 

: 4 

3 4 

3 4 

3 4 

: 4 

2 4 

A 4 

s 4 
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: 2240 


R3,R4,R5,R6,R7,R8 
RB 
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Save R2 
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317 bytes, 


; Routine Size: 


H 3 

SRTTRN 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 Page 98 SR 

04-000 bates rie EY a PS Oe og Pca ee . (32), vo4 

: 498 64 ROUTINE GET_DEFN(IN) = | 

: $000 ee yit | 

: O¢ “2 i FUNCTIONAL DESCRIPTION: | 

: Se 19 ! | Gets the definition for a field. | 

: 72 1 | FORMAL PARAMETERS: | 

: 250 75 1! 

3 208 aoe 1 IN Index into the input buffer for start location of field. 

; 316 $16 i IMPLICIT INPUTS: | : F 

1 a Bt 

: 2514 380 1 | IMPLICIT OUTPUTS: 

> 2515 581 1: 

1: ee: Be lie 

: 318 384 i ROUTINE VALUE: | 

: 3 0 586 Number identifying the field 

: 3 : 388 | SIDE EFFECTS: 

Bae Be has 

; Hh 59 "BEGIN | 

: 25 59 LOCAL 

; 2528 594 POS, ! Position 

> 2529 595 $12, | Size 

3 4 $298 DTY; ' Datatype 

; 3 4 He Get the value from the ‘to’ field 

: 334 600 if NOT CVT_DTB(4, INP_BUFC.IN+4), SIZ) 

; $3 360 SOR_ERROR(SRTTRNS_INV_LIMIT); 

; 235 o8e Look for a value in the ‘from’ field 

: 340 606 if CHSFAIL(CHSFIND_NOT_CH(4, INP_BUFC.1N],2C" ")) 

: Seg 608 BEGIN 

: 346 610 We have a one-byte field 

: st 61g POS = .SIZ; 

: $3 oi evsee™” 

; 509 615 BEGIN 

: 331 ei? Convert the position to binary 

: $388 $19 if NOT CVT_DTB(4, INP_BUFC.INJ, POS) | 

+ 2554 620 THEN | 
| 
| 
| 


3 

SRTTRN tose 1984 11: AX-11 Bliss-32 V4.0-74 

v04-000 1 ~300 71382 OR: 1h: SORT32.SRC SRI TKN B30r4 

; : yp; SOR-ERROR(SRTTRNS, INV LIMIT) ; : 

3 8 : Compute the size of this field ; 

; 2560 6 § IF .SI1Z GEQ .POS 3 

; 2561 6 THEN 3 

3 6¢ 6 8 $1Z = .SIZ = .POS + 1 3 

; 256 6 LSE 3 

3 64 650 BEGIN $ 

; 2565 631 See nrg ont Tae IMY LIAL): $ 

. = . - » ° Ps 

5308 38 , : 

: 2568 634 3 

; i ? 5 Determine the datatype : 

; 71 6 $ SELECTONE .INP_BUFC7) OF 3 

3 276 638 ET 3 

: 257 639 B'}: DTY = DSCS$K_DTYPE_B; ; 

> 2574 640 'C'}: DTY = DSCSK-DTYPE-T;: ; 

: 2575 641 'D'}: DTY = DSCSK~DTYPE NRO; : 

g 278 tg fe 4 (IF .512 EQC 8 THEN DSCSK_DTYPE_D ELSE DSCSK_DTYPE_F); ; 

: 2578 644 DTY = DSCS$K_DTYPE_NL; : 

3; 2579 645 S$1Z = .$]12Z = 1; 3 

: 2581 64 C'y'}: BEGIN ; 

: 286 648 DTY = DSCSK_DTYPE_NR; 3 

; 258 649 $1Z = .$]1Z2 = 1; é 

3: 2584 650 END; 3 

; 2585 651 "K'}: DTY = DSCSK_DTYPE_NLO; ; 

; 2586 $26 "L'): DTY = DSCSK_DTYPE_DIBOL; : § 

; 2587 65 "P'): BEGIN 3 

: $288 O38 DTY = DSCSK_DTYPE_P; 2 § 

: 2590 656 ! SORT-32 incorectly determines the size of the packed number 34 

; 4 oer  SORT-11 does this correctly : 

3 295 659 IF NOT .SWITCH_S32 THEN SIZ = .SIZ * 2 - 1; 3 

: 2595 661 C'z'}: BEGIN : 

: 2596 666 ! 3 

: 2597 66 ' SORT-32 considered this to be zoned 3 

; 238 664 ' SORT-11 considered this to be ascii zoned 3 

3 22 665 ! 3 

3; 2600 IF .SWITCH_S32 $ 

; 2601 66 THEN DTY ="DSCSK_DTYPE_NZ ; 

; O86 ELSE DTY = DSCSK_DTYPE_AZ; : 

: 260 66 END; s 

3; 2604 6 COTHERWISEJ: RETURN SOR_ERROR(SRTTRNS_INV_DATA); $ 

; 2605 44 TES; : 

: $09 67 RETURN TREE_INSERT(.POS, .SIZ, .DTY); ; 

: 2608 674 : 

3; 2609 675 END; : 
| 


3 
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000C 00000 sori catuiiage™ 


-WORD Save R2,R3 : 

53 EDAS CF 9 902 v SOR_ERROR, R3 : 

E 8 C SUBL2 #8,7SP ; 

E BD OA USHL SP : 

50 0000' CF 9E O000C OVAB INP Bur es, RO : 

04 BC40 9F 0001 PUSHAB @INTROJ : 

4 DD 0001 PUSHL #4 : 

0000V F 3 fe Bat CALLS #3, cyT_oT8 g 
9 E 1C BLBS RO : 
001C802A er DD OO01F PUSHL #186781 : 

1 FB 00025 CALLS #1, SOR_ERROR : 

2 0000" CF 3 0028 1$ MOVAB INP_BUF> R2 : 

04 BC42 04 0 : 000 SKPC = ss #32, «#4, @INER2] ; 
2 12 000 BNEQ 28 : 

1 D4 000 CLRL RI : 

51 DS 00037 2$ TSTL = RI : 

06 12 00039 BNEQ 3$ ; 

04 AE 6E DO 00038 MOVL $12, POS ; 
1A 11 0003F BRB 4$ : 

04 AE 9F 00041 3$ PUSHAB POS ; 

04 BC42 9F 00044 PUSHAB @INCR2] : 

04 DD 00048 PUSHL # : 

0000v CF 03 FB 004A CALLS #3, CVT_DTB : 
09 50 £8 0004F BLBS ; 
001C802A BF DD 00038 PUSHL #1867818 : 

63 01 FB Bope CALLS #1, SOR_ERROR $ 

04 AE 6 D1 0005B 4$: CMPL S12, Pos F 
07 19 0005F BLSS $ : 

50 6E 04 AE C3 00061 SUBL3 POS, SIZ, RO : 
OE 11 00036 BRB : 

001C802A BF DD 00068 5$ PUSHL #1867818 ; 

63 01 FB 006E CALLS #1, SOR ERROR : 

50 04 AE 6— C3 00071 SUBL3 $12, POS, RO : 
of 01 AO SE 00076 68: MOVAB 1(R6), Siz ; 

5 0000" CF 9A OOO7A MOVZBL INP_BUF+7, RO : 

42 BF 50 91 0007F CMPB RO, "#66 : 

5 13 00 5 BNEQ ; 

52 6 D0 000 MOVL #6, DTY : 

11 000 BRB 3 

43 BF 91 QOBA 7$: CMPB ss RO, #67 : 
52 06 000 ROVL #14, DTY 

‘8 11 0009 BRB 20 F 

44 BF 50 91 00095 8$: CMPBséRO, #68 : 
9 1 BNEQ oF 3 

52 13D 9B MOVL #19, DTY : 

79 1 H BRB 22 : 

46 BF 50 91 OO0A0 9S: CMPBs«aRO, -#70 : 
08 or oof Gong ONEL ug #8 

: He a es 7 

$9 if Se BRB 22$ : 
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ROUTINE GET_FFLD(LIT, COND) = 
le 

' 

' FUNCTIONAL DESCRIPTION: 
Create a FFLD_BLOCK 


FORMAL PARAMETERS: 


PAEARAAAAAAAAOAAA OAS 


WOOO CW OOCOCOCDCOCOCODOO NINN 
WR "OOO NOUESWN-OOONO 


= 
DWONAVULSWN —OOONOUS WN A OOONOUS WN Sz 


; Routine Size: 28 bytes, Routine Base: S$CODE$ + 137C 


04 
: 261 1 
; 261 1 
; 261 1 
; 261 1 
: 261 1 
; 261 1! 
; 261 7% 
; 261 1! 
: 261 1! 
; 26 1! 
; 26 7.3 LIT Value for FFLD_LIT 
; : ! COND Value for FFLD-COND 
: : IMPLICIT INPUTS: 
; 26 1! NONE 
; 26 1! 
; 26 1 ! IMPLICIT OUTPUTS: 
; 26 694 1! 
; 26 695 1! NONE 
3; 263 696 1! 
: 263 697 1 ! ROUTINE VALUE: 
3; 263 698 1! 
; 263 699 1! Address of FFLD_BLOCK 
; 263 700 1! 
: 263 701 1 ! SIDE EFFECTS: 
: 263 702 1! 
: 263 703 1! NONE 
: 263 704 1 I= 
3 yee 705 § BEGIN 
: 2641 2706 LOCAL 
3: 2642 2707 2 FFLD: REF FFLD_BLOCK; 
3: 2643 2708 § 
; sete 2709 GET VACFEL D_K gite. are 
3 2645 2710 2 rUBEe FLD_ COND) OND: 
3; 2646 2711 § FFLOCFFLD-LITJ = 
3: 2647 site RETURN FFCDCBASE Sr 
3; 2648 2713 2 
3; 2649 2714 «1 END; 
0000 00000 GET_FFLD: 
«WORD Save nothing 3 2676 
5E 04 C2 0000 #4, SP $ 
BY 44 000 PUSHL ; 2709 
; HY tee PUSHL #7 : 
F937 4 2 09 CALLS #2, GET_VM ; 
0 6E 0 MOVL FFL : 2710 
os *° 8 AC 01 MOV COND. 4(RO) 3 
6 =A 4 Ac 016 MOVB LIT, 6(RO) : 2711 
: 0018 RET : 2714 


Bliss-32 V4.0- 


UeoRTS2°SREISRTTRN.O32s1 


X-1 


1Ssen-1996 01:19:52 


; Routine Size: 


PoPoPororofornoporororofnopororurong 


N 3 
1er$ep-1986 95:10! 


1 ROUTINE PUT_QUOT (LEN, ADR: REF VECTORC,BYTE]): NOVALUE = 
LOCAL 
BUF VECTORCOUT_BUF_WIDTH, BYTE), 
PTR1 REF VECTORE BYTE ‘ 
TR REF VECTORL,BYTEJ; 


PTR2); 
DECR 1 FROM .LEN-1 TO 6 DO 
CHSWCHAR A( CHSRCHAR(.PTR1), 
IF CHSRCRAR_A(PTR1) EQL %c'“" 


END; 
CHSWCHAR_A(XZC'""* PTR2); 
PUT TEXTE CHSDIFF(.PTR2, BUFCOJ), BUFLO) ); 


PTR2 ); 


TR2 
THEN 


— 


000¢ 00000 PUT_avOT: 


ORD 
2f FRG CE 9E 0000 MOVAB 
5 8 AC 00 0000 OVL 
51 6E 9E 00008 MOVAB 
81 22 90 OO00E MOVB 
50 04 ac 00 poet MOVL 
of 11 00015 BRB 
81 63 90 00017 1$: MOVB 
52 83 9A QOO1A MOVZBL 
22 § 91 00010 CMPB 
0 3 C4 BNEQ 
81 6 9 OoSs MOVB 
EF 50 F4 00025 2$: SOBGEQ 
81 ge 90 00028 OvB 
E DD 00028 PUSHL 
50 04 «AE 2 p08 OV 
7E 51 50 ¢3 00031 SUBL 
0000v CF 02 FB 00035 CALLS 
04 0003A RET 
59 bytes, Routine Base: S$CODE$ + 1398 


AX-1 
SORT 


34 


Bliss-32_v4.0-74 
52 °SREISRITRN. D301 1 


CHSWCHAR_A(ZC''' PTR2); 


Save R2,R3 
=256(SP5 
ADR, PTRI 
BUF PTR2 
#34, (PTR2)+ 


(PTR1), (PTR2)+ 
(PTR1)+, R2 
R2, #34 


SP 


2 

#34, (PTR2)+ 
#34, (PTR2)+ 
SP 


BUF, RO 
RO, PTR2, -(SP) 
#2, PUT_TEXT 


Page 
. ( 


Sete Se Se Ge Se Se Ge Se Se Se Se Bs Se Se Sete Se Be 


104 
34) 


18-sep-19 


2 AX-11 Oi fegeat V4.0=74 
SORT32.SRCISRTTRN.B32; 


SPLIT$S,NOWRT ,NOEXE,2 
\0123456789ABCDEF \ 


P.ADN 


SCODES ,NOWRT,2 


Save R2,R3 
#20, SP 


BUF. PTR 
#22565, (PTR)+ 
LEN, I 
@ADRI], R 

#4, #4, R, RO 
xtRO} (PiR)s 
XPROT. (CRERSS 
1, 1$ 
SP 
BUF, RO 

RO, PTR, -(SP) 


#2. PUT_TEXT 


SRTTRN 4 01:11: 
v04-000 12-86-1382 93310; 
: 2669 7 2 1 ROUTINE PUT_HEX (LEN, ADR: REF VECTORL,BYTE]): NOVALUE = 
: 2670 7 BEGIN 
: 2671 734 LUCAL 
; 67¢ 735 BUF : VECTORC18, BYTE] 
> 267 7 g PTR: __REF VECTORL,BYTES; 
> 2674 7 PTR = BUFCO);: 
; 2675 738 CHSWCHAR_A(XC'X", PTR); 
: 2676 739 CHSWCHAR-A(%C'X", PTR) 
+ 2677 740 DECK I FROM .LEN-1 TO 6 DO 
: 2678 741 BEGIN 
: 2679 rae LOCAL RR: BYTE; 
: 2680 74 BIND  X = UPLIT BYTE('0123456789ABCDEF"): VECTORL, BYTE); 
: 5681 744 3 R = .ADRC.1); 
: g682 745 3 CHSWCHAR_A(.XC.R<4,4,0>], PTR); 
: 368 746 3 CHSWCHAR-A(.XL.R<0,4,0>], PTR): 
> 2684 747 2 END; 
3 2685 748 2 PUT_TEXT( CHSDIFF(.PTR, BUFCOJ), BUFLO) ); 
> 2686 2749 «1 END; 
.PSECT 
45 44 43 42 41 39 38 37 36 35 34 33 32 31 30 002F9 P.ADN: .ASCII 
46 00308 
X= 
PSECT 
000C 00000 PUT_HEX:.WORD 
5E 14 C2 60002 SUBL2 
52 6€ 9E 0000 MOVAB 
B2 5825 8F BO 00008 MOVW 
51 04 AC dO 00000 MOVL 
1B 11 00011 BRB 
53 08 BC41 90 90013 1$: MOVB 
50 53 04 04 ef 0001 EXTZV 
82 0000'CF40 90 0001 MOVB 
50 53 04 00 EF 000 EXTZV 
82 0000'CF40 90 99 OVB 
E 31 F4 OOOZE 28: SOBGEQ 
—E DD 00 1 PUSHL 
50 04 Ar % ; MOV 
52 50 ¢3 000 SUBL 
0000v CF 02 FB 000 8 CALLS 
04 0004 RET 


; Routine Size: 65 bytes, Routine Base: S$CODE$ + 1303 


P 105 
29° (35) 


<u 


» 
PPP VRLLLNLNVLLVNNVLVLNENNVNNENNNNVYNNY RA 


EI TS RENT es oe 


<u 
Ow 
aa 

zw 
<4 


IECRSSHMNA CLNGERE WaT AUaaR Rib roe is 


cael Py coats (LEN, ADR: REF VECTORC,BYTE], NAM: REF FLD_BLOCK): NOVALUE = 


S12 = »NAMCFLD_S1Z); 
a «NAMCFLD_DTY) OF 


DSCSK_DTYPE_B 
DSCSK"DTYPE Bi: 
BEGIN 


LOCAL 
I 


RES: N 
IF _ NOT CVT AL 


ITIAL( 
(LEN OF bRCOI RES) THEN SOR_ERROR(SRTTRNS$_INV_CONST); 
RETORN: MINU(.SIZ, 


£ALLOCATION(RES)), RES J; 


AACA OH OOOOMMUIUIUTIUT 
ANEW OOO NOUS WR OVO ONOULSWWIHO 


END 
CDSC$K “DTYPE _NL 
DSC$K~ =DTYPE “NRI: SIZ = .SIZ + 
CDSCS$K~DTYPE_PJ: $12 = .$12 / 2°41; 
COTHEROLSEI:~ 0; 


TE 
PUT. aut (MINUC. LEN,.S1Z), ADRCO}); 


POPOPOPOPOPONPONoNoNononononononononononononofnonopornyd 


1 
LOCAL 
Determine how large a field is needed. 
; 
2 
2 
2 
2 
; 
1 


POPOPOPENENIPNoNoNoNonoponononynofnons 
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WO Save R2 ; 2750 
5E 04 C2 0000 SUBL2 #4, SP : 
50 Oc aC BO 000 MOVL NAM, RO : 2757 
52 0A AO 3C 00009 MOVZ2WL 10(RO), $12 ; 
50 10 Ad 9A 00000 MOVZBL 16(RO). RO : 2759 
02 50 91 oii CMPB RO, #2 : 2761 
5 13 00014 BEQL ‘1 F 
06 0 91 00016 CMPB SseRO, #6 F 
20 12 00019 BNEQ 4$ ; 
—E D4 0001B 1$: CLRL — RES : 2763 
E bp 9910 PUSHL SP : 2766 
7E 04 as Dd 1F vQ Lan. -(SP) : 
0000Vv cr ; FB 0 ; CALLS a3. ss : 
001¢800c BF DD 8 PUSHL #1867788 F 
EBB6 CF 1 FB CALLS #1, SOR ERROR : 
4004 8F 38 28: PUSHR #*M<R sP> : 2767 
04 oF D A CMPL (SP), é : 
18 BLEQU 3 ; 
6E 4 D fF MOVL #4, (SP) ; 
FF78 CF 2 fe $ 3$: CALLS #2. PUT_HEX é 
Q RET : 3763 
10 50 1 00048 4$: CMPB R0. #16 : av? 
05 13 00048 BEQL sé ; 


0004 00000 PUT_NUMB: 
RD : 

| 

| 


SRTTRN 1b-se Sep-1 1 AX=1 4.0-74 P “i 
¥04-000 1er8ep= 138s Phi1h8e = FMA TL Pk isge3e ys .0524 age 195 
: 0 ee ee ie : 
2 06 5$ INCL giz : 2771 
BRB $ : 
15 91 $ 6$ CMP i #21 ; 2772 
50 2 5 B DIVL3 #2, $12, RO : 
01 A 5 F OVAB 1(RO), $12 F 
E 4 AC 7D 63 7$ MOVO LEN, =-(SP) t 2775 
5 6f D1 0006 CMPL (SPS, $12 : 
: 18 06A BLEGU 83 : 
6E g dO 0006C MOVL S12, (SP) : 
FF10. CF 02 FB O06F 8$ CALLS #2, PUT_QUOT ; 
04 00074 RET : 2776 


; Routine Size: 117 bytes, Routine Base: SCODE$S + 1414 


= a 


$ep-1984 AX-1 Bliss -32 V4.0-74 Page 108 SRT 
04 15-56 ~3007 138% 9}: 10; ¢ YeORT Z. $Rcd SRTTRN.B32; ° Ris v04 
: 718 7 1 ROUTINE PUT_FLOT (LEN, ADR: REF VECTORC,BYTE], ITMLEN): NOVALUE = 
: a7 7 g BEGIN 
; 18 77 LOCAL 
: a7 780 PTR: REF vE ORC, ,BYTE), 
: 2720 781 DESC: VECTOR ¢? 
> 2721 7 ; RESULT: VECTORCS.BYTED, | 
: f ¢ f ? STATUS; 
3 f ¢ f 5 Find the end of the string, and convert the text string to D-floating. 
: 27 $ 7 § PTR = CHSFIND_CH(.LEN, ADRCO) zc" "); 
: f i f 8 IF CHSFAIL(.PTR) THEN PTR = AORL.LEN): 
: 2729 790 DESCLO] = CHSDIFF(.PTR, ADRCO)); 
; f 9 191 Natdep x ADR ON, 
; 27 ¢ 138 ! Convert the number to floating 
: 27 794 i 
: 2734 795 BEGIN 
3 2735 796 EXTERNAL ROUTINE OTSS$CVT_T B: 
; 136 2797 STATUS = OTSSCVT_T_D(DESCLOJ, RESULTCOJ); 
3 2737 2798 IF NOT .STATUS 
: 2738 799 THE 
: 2739 800 SOR_ERROR(SRTTRNS_INV_CONST AND NOT STSSM_SEVERITY OR STSSK_ERROR); 
ng Oe ie 
3: 274 80 ' Now output the number, in HEX 
+ 2746 804 i 
+ 2744 805 PUT_HEX (.ITMLEN, RESULT(O)); 
: 2745 806 2 
: 2746 807 1 END; 
.EXTRN OTSSCVT_T_D 
0000 00000 PUT_FLOT: 
-WORD Save nothing ; 2777 
5 10 ¢2 0000 SUBL2 #16, : 
08 BC 04 AC 20 3A 0000 LOCC #32, LEN, @ADR : 2787 
Js a a 7 
1D So0r 1$ TSTL PTR : 2788 
06 1 01 BNEQ $ : 
51 08 Ac 04 ac C 1 ADDL 3 LEN, ADR, PTR : 
08 AE 51 5 a < 01 28: SUBL ADR, PTR, DESC : 2790 
Oc AE 08 AC 00 0001F MOVL ADR, DESC+4 : 2791 
5E DD 00024 PUSHL : 2797 
oc OA f $ PUSHAB ree ; 
000000006 90 FB CALLS prGESsgyt tp 3 
E LBS ATus 3 : 2798 
001C800A BF ODD PUSHL Hie 786 : 2800 
EB39 F gi FB CALLS SOR_ERROR : 
— DD 3$: PUSHL 4 : 2805 
0c aC DD 0004 PUSHL ITMLEN : 
FFO2 CF 02 FB 0004 CALLS #2, PUT_HEX ; 
04 4 RET : 2807 


sarTRN, HboSeoctgee OL:11:62  yanetd ab ing=2 40274 Page 199 


; Routine Size: 73 bytes, Routine Base: S$CODE$S + 1489 


rarer I a ea 
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; Routine Size: 


117 bytes, 


4 0D 

0 iz 

4 12 

bp 

7E 04 ag D 

FFGF OCF 0 fe 
001¢801C er DD 

EABA F 1 fe 


Routine Base: 


SCODES + 14D2 


“1986 $3310 


PUSHL 
BRB 
CMPB 
BNEQ 
PUSHL 
MOVQ 
CALLS 
RET 
PUSHL 
CALLS 
RET 


3¢ AX-11 Bliss-32 V4.0-74 


SORTS2.SRCISRTTRN.B32; 
Me 


R2, #11 
4 


tN. -(SP) 
#3, PUT_FLOT 


#1867804 
#1, SOR_ERROR 


2827 
2829 


nw 
@ 
—_ 
-_" 
@ 
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RWWA AA 


ere 
NAME WN 9 OD NOU EWN O OONO UE AR OOONOCUESWWN—O 


PAM MAAAATIIT 


rororr 


Ss 


= 
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DONOUS WMO 


PRI EALPRPOPIPIPIPOPOPIPIPIPYINIPPININIPIDIPIPIDIPDIRYD ot tt wt st tt st 


PROPOR POAPINNY — Os Ot os ow 


NOUS WN Oo 


4 
ibs =1984 01:11: AX-11 Bliss-32 V4.0 
1e-8ep-19 4 OF d 28 SORT 2. SRC SRTTRN. 


ROUTINE PUT_TEXT (LEN, ADR): NOVALUE CALL = 
hag 
FUNCTIONAL DESCRIPTION: 

Put some text to the output buffer. 
FORMAL PARAMETERS: 


LEN Length of the text 
ADR Address of the text 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 

0 or 1 
SIDE EFFECTS: 
NONE 


; 
' 

i 
; 
: 
i 
; 
; 
] 

: 
: 
: 
: 
; 
: 
ioe 

BEGIN 
BUILTIN 
ACTUAL COUNT 
ght TUALPARAME TER: 


LEN_(X) = ACTUALPARAMETER(X) 2%, 
ADR_(X) = ACTUALPARAMETER(X+1) 


AL 
TOT_LEN; 


IF .LEN GTR 0 THEN 
IF CHSRCHAR(.ADR) EQL %C'/* 


PUT_LINE(); 


TOT_LEN = 0; 
INCR I FROM 1 TO ACTUALCOUNT()-1 BY 2 DO 
TOT_LEN = .TOT_LEN * LEN_(.1); 


v -TOT_LEN GTRU .OUT_DSCCO] AND .TOT_LEN LSSU OUT_WIDTH 
PUT_LINE(1); 


nT 1 TO ACTUALCOUNT()-1 BY 2 DO 
Cut psc id = Creme cLEN. S12. ADR (.1), .OUT_DSCC1)); 
pur ps6 0) = .OUT_DSCLOJ"= LEN_(.1); 


SRTTRN 
v04-000 


839 


FFF6 


FFES 


3; Routine Size: 


$88e f 


50 


04 = «B8 
56 


104 bytes, 


END; 


0000v CF 


00000047 = 8F 


Q000v CF 
57 

56 

50 

60 

04 AB 
68 

02 


Routine Base: 


4 
1b-se -1984 11: AX-11 Bliss-32 V4.0-74 
eet ra eT eS a ce ott a Pg en ea Pose ti; 
O1FC 00000 PUT_TEXT: 
~~" {WORD Save R2,R3,R4,R5,.R6,R7.RB : 2830 
0090" CF 9 00 3 MOVAB OUT_DSC, Rb : 
ie i H pea |S" ‘heen 
08 8B 1 CMPB @ADR, #47 : 
8 i 4 ae re aa 
$ pA 91 1$: cLAL Of LEN : 3874 
Sf BP dole oie see __—- 
01 01 MNEGL #1, I F 
6ced ij 209 s RrpL2 taP)CII. TOT_LEN : 2876 
51 FI 900 ; $§ ACBL. sR #21 28 : 
32 4 000 D CPL TOT_LEN, OuT_DSC : 2878 
52 D1 000 2 CMPL = TOT_LEN, #71 : 
07 1€ 900 BGEQU 4$ F 
1 DD 00038 PUSHL #1 + 2880 
1 FB 0003D CALLS #1, PUT_LINE : 
5 Bh Ronte 48: Roy. ah). a? — 
01 cE 0047 MNEGL #1, I : 
5 11 0004A BRB 6$ : 
OF Ete BF OSeST puta tape’ oo 
Hs 28 ined MOVC3  a(SP)+, (RO), @OUT_DSC+4 : 
5 09 0059 MOVL. R3 ut _psc+é ; 
646 C2 0005D SUBL2 (AP)CIJ7 OUT DSC > 2885 
57 F1 00061 6$ ACBL =R7, #2, 1, 5S > 2882 
04 00067 RET : 2888 


SCODES + 1547 


a 


SRT 


2 00 00 CO CD CD 
=—OODONAOULE WN 


000000000 
ae es 


02.09 09 Co C9 C9 C9 C9 CD CD CO CO 

PAM MTIVIUIUIUN & 
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woooono 


RO ro 
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Sesee 
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SPRINPINPINPIPINIPINPININPIPIAIM PIII INI) a a as st st tt st kt tk kk tk tk tt 
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DOOOOVOOOOOOODOOOOOOODOOOOOONO s 
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AAWAANIAIAIIIPONPIPUNENINININIDS 4 2 SS OS SS SS | OO 


000000090000 0000 
SNS 
NOuUSWN— 


kK 4 
1e8eb-19ke V5:10:8e — Pebardo°sneisasranco3oc9 
ROUTINE PUT_LINE(TAB): NOVALUE CALL = 
i++ 
FUNCTIONAL DESCRIPTION: 
Output a Line 
FORMAL PARAMETERS: 
TAB Amount to tab over on the new Line (optional) 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
! ROUTINE VALUE: 
0 or 1 
SIDE EFFECTS: 
NONE 


BEG! 
BUILTIN 
NULLPARAMETER; 

} Write the Line to the file 
OUT_RABLRABSW_RSZJ = .OUT_DSCC1] - OUT_BUFO); 


OUT_RABCRABSL_CTX] = SRITRNS_WRITEERR; 
$PUT( RAB=OUT~RABLBASE_J, ERR=REPORT_IO0_ERROR ); 


ouT -psctoy = = OUT_WIDTH; 
OUT=DSCL1) = OUT~BUFCOI; 


IF NOT NULLPARAMETER(1) 
PUT_TEXT(. TAB, UPLIT BYTECREP 10 OF (ZCHAR(9)))); 
END; 


-PSECT S$PLITS,NOWRT ,NOEXE ,2 


9 09 P.ADO: .ASCII <9 
9 A eASCII = <9> 
9 ASCII <9> 
9 C -ASCII = <9> 
9 00 eASCII = <9 


a ee 
SRTTRN 18-sep- 21 AX-11 Bliss-32 V4.0-74 Page d, p 
v04-000 1 ~tep- 1382 9}: 10; 3g SORT32.SRCISRTTRN.B32; ° (40) 04 

3 OF eASCII <9> $ 

F eASCII <9> 3 

9 10 eASCII <9> : 

9 11 eASCII <9> 3 

9 00312 eASCII <9> 3 


-EXTRN SYSS$PUT 
-PSECT SCODES,NOWRT,2 


0000 00000 PUT_LINE: 
«WORD a At bah 


50 0000' cf 26 00 002 HOVAB ; 

0000" CF 0000' CF 0 000 SUBW sie “05es +4, ou! ofAs+34 : 
a oe POStAB bel : $358 

5600" CF OF boote PUSHAB : 

000000006 0 02 FB 900 0 ALLS # RreseuT F 
0000' CF 47 BF 9A 00027 MOVZBL # : OUT_DSC : 2928 
0000" CF 0000' CF 3 900 D HOVAB UT BUF “OUT_DSC+4 ; 2909 

11 (13 SOs BEQL : 

04 AC 03 00038 TSTL  4(AP) F 

0C 13 00038 BEQL =s'1$ : 
0000" CF 9F 0003D PUSHAB P.ADO + 2933 

04 AC DD 00041 PUSHL TAB ; 

FF GF CF 02 FB 00044 CALLS #2, PUT_TEXT é 
04 00049 18: RET + 2935 


3; Routine Size: 74 bytes, Routine Base: S$CODE$S + 15AF 


todd oft of ot6 of6 ot6 oft oft oft oft ofl oft oft ot lt ot ot i il dd Ud dd Cd Ud Cd Ud Ud Ud Ud Cd Cl Cl Ud Ud Cd Ud Cl UC Ud Ul Cl UU I A AIA 


mM 4 
16-Sep-1984 01:11:52 AX-11 Bliss-32 V4.0-74 Page 116 SR] 
12-8 8=18e OF 1g ee SORT32.SRCISRTTRN.B32; 9 ad) v04 
: 2879 936 1 ROUTINE CLOSE_FILES : NOVALUE = 3G 
3; 2880 338 1 3 
3; 2881 938 1 S44 3 
3 Bee 939 1! i 3 
3 th ary } FUNCTIONAL DESCRIPTION: i | 
: 2885 942 1 | Close the input and output files. : 3 
: 2886 348 1! 4 : 3 
: 2887 944 1 | FORMAL PARAMETERS: ; 3 
3; 2888 945 1! 33 
3 2889 946 1 i NONE :3 
3; 2890 947 1! 2 | 
: 2891 948 1 ' IMPLICIT INPUTS: 33 
3 289 949 1! 33 
: 289 950 1! NONE 
> 2894 951 1! 
3 2895 93¢ 1 | IMPLICIT OUTPUTS: 
3 2896 953 1! 
; 2897 2954 1! NONE 
: 2898 2955 1! 
: 2899 2956 1 | ROUTINE VALUE: 
: 2900 2957 1: 
: 2901 3998 1 0 or 1 
3 290 959 1! 
: 290 2960 1 ! SIDE EFFECTS: 
> 2904 2961 1 
: 2905 96¢ 1} NONE 
3; 2906 963 1 !-- 
: 2907 964 BEGIN 
; 290 965 
: 2909 966 ! Close input file 
: 2910 2967 i 
: 2911 2968 s INP_FABLFAB$L_CTX] = SRTTRN$_CLOSEIN; 
; 918 3969 SCLOSE( FAB=INP_FABCBASE_J, ERR=REPORT_IO_ERROR ); 
3 2914 sant § ! Close temporary file 
: 9919 97¢ 2 i 
: 2916 973 2 IF .TMP_FABLFABSW_IFI] NEQ 0 
> 2917 974 THEN 
: 2918 975 BEGIN 
: 2919 2976 TMP FABCFABSL_CTX] = SRTTRNS_CLOSEDEL; 
; 2920 2977 3 S$CLOSE( FAB=TAP_FABCBASE_J, ERR=REPORT_IO_ERROR ); 
: 2921 978 END; 
: 29 : 979 
3 BSz 44 Close output file 
: 2925 982 OUT_FABLFABSL_CTX] = SRTTRNS_CLOSEOUT; 
; 926 983 SCLOSE( FAB=O0T_FABCBASE_J, ERR=REPORT_10_ERROR ); 
: 2928 985 1 END; 


~-EXTRN SYSSCLOSE 


000C 00000 CLOSE_FILES: 
“  ,WORD Save R2,R3 ; 2936 


Nf 
¥O4-000 We8eb-13ke FSi1082 — EebarseOseeisatransoses Page dis 
F 9E MOVAB REPORT  10_ERROR, R3 ; 
cou: £7 SSH 9 Hb RHR RE SR Ran oa 
0000° cf BF 80019 PUSHAB F : 
62 a hy. 19 CALLS” ASL “S188cLosE : 
0000 fF 920 ist TMP_FAB+ ; 2973 
0000" CF 001C121A gf p0 99 6 MOVE age TMP_FAB+24 : 2976 
Som BE RRS tt : 
0000' CF 001C105A y 00 00038 1$ nOVL Hash oe oor _FAB+24 ; 298 
0000' CF 9F $6043 PUSHAB Out f F 
62 62 FB 00047 CALLS #2, “SY SSCLOSE ; 
04 0004A RET > 2985 


; Routine Size: 75 bytes, Routine Base: $CODE$ + 15F9 
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SRTTRN 1bese 1984 11:5 AX-11 Bliss-32 V4.0-74 Page 118 
v04-000 12-808- 1382 OF thee SORT32.SRCISRTTRN.B32; . (42) 
; 2930 9 1 ROUTINE GET_LINE = 
; 2931 9 $ 1 
3; 29 ¢ 9 3 1 4+ 
s 293 9 1! 
3; 29 990 1 ! FUNCTIONAL DESCRIPTION: 
3; 2955 991 1! 
3; 2936 836 1! Get a Line from the input file. 
3 tT 9935 1! 
3; 2938 994 1 ! FORMAL PARAMETERS: 
3; 2939 995 1! 
; 2940 44 . 3 NONE 
; $304 997 1! 
3 ok 996 1 ! IMPLICIT INPUTS: 
3: 294 999 1! 
3 2944 000 1! NONE 
3: 2945 001 1! 
3 2946 Oe 1 ! IMPLICIT OUTPUTS: 
3 2947 003 1! 
3 2948 004 1! NONE 
3 2949 3005 1! 
; 2950 $008 1 ! ROUTINE VALUE: 
3 $324 007 1! 
3 926 Shoe > 3 0 or 1 
3; 295 009 1! 
3 $oee 3010 1 ! SIDE EFFECTS: 
3; 2955 3011 1! 
3; 2956 $018 +3 NONE 
3 2957 301 1 !-- 
3; 2958 3014 2 BEGIN 
; 2959 sei2 § LOCAL 
: 2960 016 STATUS; 
: 2961 3017 2 
; $906 3018 ¢ DO 
3; 296 3019 BEGIN 
3 2964 3020 ; 
3; 2965 3021 CUR_RABCRABSL_CTX] = SRTTRN$_READERR; 
; S2ee 3056 3 STATUS = $GETT RAB=CUR_RABCBASE_J, ERR=REPORT_IO_ERROR ); 
3 238 3094 3 ' Check for end of file 
3 2969 Hi 5 ! 
> 2970 026 if .STATUS EQL RMS$_EOF 
; sori $056 THEN 
3: 2972 028 4 BEGIN 
: $352 O98 4 LINE_TYPE = 0; 
> 2974 030 4 RETURN FALSE; | 
3; 2975 031 END; 
3: 297 O36 
; tA bRz Get record size from record access block | 
: 3 035 INP_REC_SIZ = .CUR_RABCRABSW_RSZ); | 
F 381 037 ! Fill unused portion of buffer with blanks 
3; 298 039 CHSFILL(2C* ° 
> 2984 040 ZALLOCATION( INP BUF)~.INP_REC_SIZ, | 
> 2985 041 INP_BUFL.INP_REC_S1ZJ); | 
: 2986 042 


SRTTRN 


5 
16-Sep-1984 211: AX- iss- 4.0-74 
v04-000 6 Sep ee 9 1:3 Bliss-32 v4.0 Page 


14 11 
14-Sep-19 SORT32.SRCISRTTRN.B32; (42 


; +14 Rt? If this is the first pass, output the Line as a comment : 

3: 2989 045 IF .PASS EQL 1 : 

; 2990 be8 THEN 3 

; 2991 047 4 BEGIN | ; 

3; 299 Ree 4 \ : 

3 299 49 4 ' Issue the Line as : comment. ; 

+ 2994 050 4 ' If the input file is not on a rewindable device, : 

3 Soe B23) ? } also write the record to the temporary file. | : 

; 2997 $88 4 PUT_TEXT( : 

3 2998 bee 4 LENADR_("!"), 3 ; 
3; 2999 055 4 -INP_REC_SIZ, INP_BUFCO)); 3 

: 3000 056 4 PUT_LINET); | 
: 3001 057 4 IF [TMP_FABCFABSW_IFI] NEQ 0 ; 3 
: 300 058 4 THEN 3 

: 300 059 +5 BEGIN 3 3 
3; 3004 060 5 TMP_RABCRABS$W_RSZ] = .CUR_RABCRABSW_RSZ); ¢ 3 
; 3005 $003 5 TMP_RABCRABSL_CTX] = SRTTRNS_WRITEERR; 3; 3 
; 3006 06¢ 5 SPUT( RAB=TMP_RABLBASE_J, ERR=REPORT_IO_ERROR ); 3 3 
; 3007 3063 4 END; s 3 
: 3008 3064 3 END; a3 
3; 3009 065 ; 3 3 
; 3010 066 IF .INP_BUFC6) EQL XC'®' 3; 3 
; 3011 067 ; THEN : 3 
: 3018 3068 LINE_TYPE = 0 3 3 
; 301 $088 F 3 5 
3 tie e500 CHSEQL(.INP_REC_SIZ, INP_BUFCOJ, 0, INP_BUFCOJ, %C* ') : ; 
: 3016 3076 LINE_TYPE = 0 ; 5 
; 3017 07 LSE 3 3 
3; 3018 3074 4 BEGIN 3 3 
3; 3019 3075 4 LOCAL 3 3 
3 g0s0 3076 4 : 3 3 
; 3021 3077 4 3 3 
3 $058 $058 : } Convert first 6 character positions of record : 3 
3 3052 3080 4 UPCASE(6, INP_BUFCO)); 3 3 
: 3025 soa) 4 3; 3 
: 3026 bas 4 ! Find type of record $3 
: 3027 083 4 ! 3 ; 
3; 3028 084 4 IF CHSEQL(LENADR_("ALTSEQ'),6,INP_BUFCOJ],2%C° °) : 

: 3029 085 4 THEN :3 
; 30 B86 2 BEGIN 3; 3 
; 3031 0 LINE TYPE = ALTSEQ_LINE; 

3 O36 088 5 RETURN TRUE; 

3 Bs ; ? END; 

: Ose 091 4 ' Check whether this record is in free format, and convert to 

3 036 092 4 ! fixed format if it is. 

; 303 0935 4 ! 

3; 3038 094 4 FREE_FIXED(); 

3; 3039 95 4 

: Rey +3 ? H Check Line number order (if not altseq) 

3 peg 098 4 IF .PASS EQL 1 AND NOT .LINE_SEQ 

3 304 099 4 THEN 


5 
SRTTRN 16-Sep-19 211: AX-11 Bliss-32 
V04-000 If: Beer io8e $hifoise §— Eebarso°Saeisay 
; 3044 100 BEGIN 
; Re? : 1 Hegg tte (5, INP_BUFCOJ, 0, INP_BUFCOJ, %C° ') 
3 09 1 s 0 ! Ignore blank Line numbers 
; 3048 104 ELIF 
; 3049 105 6 BEGIN 
; 3050 1 $ 6 IF CVT_DTB(S wef ay hoa’ TEMP) 
HGS rig lege o 
; 088 199 END 
3; 3054 110 THEN 
; 099 1 LINE_NUM = , TEMP 
3 : 11g LSE 
; 305 113 6 BEGIN 
; 3058 114 6 4c a? pig hr LINE _NUM) ; 
; 3059 115 2 INE_SEQ RUE ; 
; 3060 118 END: 
; 3061 11 4 END; : 
; beg 118 4 3 
; 306 119 4 ! Determine the type of Line 3 
; 3064 120 4 : : 
; 3065 1. 2 LINE TYPE = (SELECTONE .INP_BUFCS) OF : 
; 3066 1 ¢ ET 3 
; 3067 1 "H'): HEADER_LINE; : 
; 3068 124 "I'}: RECORD LINE; 3 
; 3069 125 ‘oO’ : rere. LINE; 
; 3070 126 _ eagle D_CINE; 
; 3071 127 OTHERWISE 
; O7e 128 5 (IF .PASS EQL 1 THEN SOR_ERROR(SRTTRNS_INV_TYPE);0); 
:; 307 129 4 TES); : 
3; 3074 130 4 : 
; 3075 131 END; 3 
; 3076 1 ; F 
; 3077 1 END 3 
; ae : : UNTIL .LINE_TYPE NEQ 0; : 
; 3080 136 ! If the user is trensiating an old-format res spec file, 3 
3 et : 7 apply some defaults for things that Sort-32 never implemented. 3 
3 O88 139 IF .SWITCH_S32 AND .LINE_TYPE EQL HEADER_LINE 
3 bee Fe THEN 
: 3086 136 tg Bur 3s }. ! Ascii collating sequence 
3 nt 14 ie. “BUF = rex": ! Strip the keys 
; 30 144 
3; 3089 145 
; 3090 148 RETURN TRUE; 
; 3091 14 END; 


-PSECT SPLITS,.NOWRT ,NOEXE ,2 


1 6° 13 P.ADP: .ASCII \I\ 
51 45 53 54 4C 41 14 P.ADQ: .ASCII \ALTSEQ\ 


-EXTRN SYSSGET 


5 
yE-sep-1964 01:11:52 yaKet4 OLing=32 v4. 0276 


PSECT 
O3FC 00000 GET_LINE: 
9 ' CF AOVAB 
ae a 
019 4 
18 OA 001¢10B¢ 
EB8 
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CoCo 
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gece 
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000000006 
0001827A = BF 
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50 20 
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SCODES,NOWRT,2 


ve R2,R3,R4,R5,R6,R7,RB_RO 
NE_TYPE, RO 

P_GuF, RB 

R 
a 


STATUS 
TATUS, #98938 


LINE _TYPE 

18$ 

CUR RAB, RO 

4(RO), INP_REC_SIZ 

NP_REC_SIZ~ R6 

RS, #132, Rb 

#0, (SP), #32, RO, INP_BUFCR6] 

PASS, #1 

#°M<R6,RB> 

P.ADP 

i 

ry ful TR 

TMb_FABT2 

CUR RAB, RO 

4(R0) TMP_RAB+34 
314, TAP _RAB+24 

REPORT_1I0_ERROR 


#2, SYS$PUT 
INP_BUF+6, #42 


INP_REC_SIZ, INP_BUF, #32, #0, INP_BUF 


5$ 
LINE_TYPE 
15$ 

RB 


#6 

#2. UPCASE 

#6, P.ADQ, INP_BUF 
#2, LINE_TYPE 


#0 FREE FIXED 
PASS, # 


LINE_SEQ, 8$ 


EE | 
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F 5 
SRTTRN 16-Sep-1984 01:11: AX-11 Bliss-32 V4.0-74 Page 1 
v04=000 19-308 382 94:1): 22 YeoRT 2. SRCISRTTRN.B32; . 18 
a 20 68 20 07 CMPCS #5, INP_BUF, #32, #0, INP_BUF 3 3101 
13 00000 BEQL BS : 
4100 8F 88 000D PUSHR #*M<RB,SP> + 3106 
DD E PUSHL r : 
0000v CF FB E CALLS #3, cyT_oTB : 
C £ EA BLBC ~—=_—«aRO, : 
04 a9 bE D1 OO00ED CMPL TEMP, LINE_NUM + 3107 
6 3 Fi BLEQ : 
04 a9 E 06 FS HOVL TEMP, LINE_NUM > 3111 
001¢8058 BF oD ° F9 7$: PUSHL #1867864 + 3114 
£888 CF 1 FB FF CALLS #1, SOR_ERROR : 
08 a9 1 D 4 MOVL 1, LINE_SEQ 3 3115 
30 05 AS 9A 00108 8S MOVZBL I P BUF 5, RO + 3121 
48 8F 50 91 91 CAPB 0, 3 3123 
0 is 11 BNEQ oF : 
50 1 pO 0011 MOVL #1, RO : 
F 11 0011 BRB 14 : 
49 = «BF 0 91 00117 9$ CMPBséRO, #73 + 3124 
06 13 00118 BEQL 10 : 
4F OF 91 0011D CMPB—SséRO, -#79 + 3125 
05 if 00121 BNEQ 11% : 
50 03 pO 00123 10$:  MOVL #3, RO ; 
le 11 001 6 BRB 14 : 
46 BF 50 91 00128 11$:  CMPB RO, #70 + 3126 
05 if 991 C BNEQ 12$ : 
50 04 00 00126 MOVL #4, RO ; 
13° «11 01 1 BRB 14§ : 
01 146 Ad D1 00133 12 CMPL =~ PASS, #1 : 3128 
B 12 00137 BNEQ 13$ : 
001¢8054 8F OD 01 9 PUSHL #1867860 ; 
E878 CF 1 FB 0013F CALLS #1, SOR_ERROR : 
0 D4 00144 138: CLRL R : 
69 50 DO 00146 14$: MOVL RO, LINE_TYPE s 3121 
50 69 09 0149 15$:  MOVL  LINE_TYPE, RO : 3134 
03 12 0014¢ BNEG  16$ ; 
FEBE 31 OO14E BRW 1$ : 
OE 28 «6A OED O19] 16$:  BLBC  SWITCH_S32, 17$ > 3139 
01 50 01 00155 CMPL = RO, #1 : 
9 fs 0158 BNEG = 1 : 
19 A 09 O15, MOVB #32, INP_BUF+25 : 314 
1B OA 58 8F 90 001 : MOVE =s #88, INP=BUF +27 : 314 
50 01 B0 a8 17$: MOVL #1, R : 3146 
50 04 00167 18$:  CLRL RO + 3147 
4 00169 RET ; 


; Routine Size: 362 bytes, Routine Base: S$CODE$ + 1644 


5 
SRTTRN 1b-5e -1984 211: AX-11 Bliss-32 V4.0-74 
v04-000 1 ta 1 ES SORT3S2.SRCISRTTRN.B32; 
3 44 148 1 ROUTINE FREE_FIXED: NOVALUE = 
: 3094 14 BEGIN 
; 3095 1 LITERAL 
: 838 151 NUM = QO, 
; 309 1 § CHR = 1; 
; 3098 1 BIND 
3; 3099 154 ! Each entry in this table consists of three fields, 
; 3100 155 ' The fixed-format pes) tion of the field, 
: 3101 1 § ! The maximum Length of the field, 
: 106 : } Whether the field is numeric or character. 
: 104 159 H_FIELDS = yPL T BYTEC 
Be io§ ne | Cree eumer 
; -1, 3, » | Line number 
: 3107 166 g-}- 1, CHR, ! Record type 
<i: et rel: Gin: | ASE ees toe 
: 3110 165 ie-t: T° ce. «| tert erase 
an ie Sel: |: Be: Eelleting segunes 
3 -1, 1, » | Keys str n 
; 3118 198 $3.1" 4 an. } Max inun pter size 
3 - ' Commen 
> 3115 170 F_FIELDS = UPLIT BYTES 
; 3116 171 1-1, 2, NUM, 
3 3117 1% 3-1, 3, NUM, 
; 3118 17 “1, 1, CHR, ' Record type 
3; 3119 174 -1, 1, CHR, ! Key order 
; 3120 175 8-1, 1, CHR, ' Key type 
; 3121 176 3-t- 4, NUM, ' Key position 
7 31 ¢ 17 13-1, 4, NUM, ! Key ending position 
ag Mei 6 GMs, | Esceggtareree 
: 3125 180 LITERAL teed of J 
: 3126 181 RT_POS = 0, ! Position of this field 
: 3127 186 RT_SIZ = 1, ! Maximum Length of this field 
: : : 137 re = 2; ! Type of this field 
: 31 185 BUFFER: VECTORC80,BYTE), 
; 3131 18 PTR, 
; 31 ; 18 INP: vecTone }- 
s By 188 OUT: VECTOR 
: 4 189 RT: REF VECTORC3,BYTE); 
: 1 191 ! Skip leading spaces 
: 31 198 PTR = CHSFIND_NOT_CH(.INP_REC_SIZ, INP_BUFCOJ, %C° '); 
: iF 4 Hs IF CHSFAIL(.PTR) THEN RETORN; 
: 141 196 ! Skip digits (page number) 
: 128 198 WHILE (CHSRCHAR_A(PTR) = %C'O') LEQU 9 DO 0; 
: \e8 +44 IF CHSRCHAR(CHSPLUS(.PTR,-1)) NEQ 2C'," THEN RETURN; 
: 146 1 ! Skip digits (Line number) 
: 3148 : WHILE (CHSRCHAR_A(PTR) = %C'O") LEQU 9 DO 0; 
; 5149 4 IF CHSRCHAR(CHSPLUS(.PTR,-1)) NEQ %C°," THEN RETURN; 
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H 5 
16-Sep-1984 01:11: 
12=808= 1382 94:15:82 
It seems to be in free-format. Determine the record type. 
SELECTONE CHSRCHAR(.PTR) OF 
4 : ay = F_FIELDS; ! Field specification 


: = H_FIELDS; ! Header specification 
PO INERUISE: RETURN; ! Who knows? 


Make a copy of the original record, and set up descriptors 
INPCO) = .INP_REC_SIZ; 

BUFFERCOJ; 

ZALLOCATION(INP_BUF ); 


ou 
cz 
=v 
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ou 


Bliss-32 V4.0-74 
- SRCJSRTTRN.B32; 


OUTL1) = INP_BUF 
CHSCOPY(.INP-REC SIZ, INP BUFCOJ, XC" “ Sayan eer ren, BUFFERCO]); 


CHSFILL(ZC’ %, ZALLOCATION(INP_BUF), IN 


Now loop through the fields in the record, reformatting as we go. 


WHILE TRUE DO 
BEGIN 


Skip blanks 
PTR = CHSFIND_NOT_CH(.INPCOJ, .INPC1], XC "); 


IF CHSFAIL(.PTR) THEN EXITLOOP; ! Done if only blanks remain 


Remove the spaces from the descriptor 


inecod = .INPCO) = CHSDIFF(.PTR, .INPC1)); 
INPL1] = .PTR; 

IF CHSRCHAR(.PTR) NEQ %C',° 

THEN 


BEGIN 
Find the end of this field (a comma) 


PTR = CHSFIND CH. INPCO) -INPC1], %C',"); 


IF CHSFAIL(.PTR) THEN PTR = CHSPLUS(.INPLI) PCO)) 


CIF’ RTCRT_TYP) EGL CHR THEN O 


.INPLO)); 
INP_REC SIZ’ = CHSMOVE MINCCHSDIFFC.PIR,.INECII). -RTCRT_S12Z), 
INP_BUFC .RTCRT + 


ELSE 
MAX(O, .RTCRT_SIZJ-CHSDIFF(.PTR,.INPC1])))J) = INP_BUFCO); 


Remove this field from the descriptor 
inpco} = .INPCO) = CHSDIFF(.PTR, .INPL1)); 
INPC1 : 

END; 

Now scan past the comma 

iF 1yPCOJ EQ THEN EXITLOOP; 

inet = “NEED - 1; 

INPL1) = .INPL1] + 1; 


<u“ 
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RTTRN 
04-000 
: 3207 6¢ ; 
: o } Advance to the next field description : 
: 354 és RT = RTC32: | : 
: 321 $ IF .RTCRT_512] EQL O THEN EXITLOOP; ; 
: 1¢ ? END; : 
3 \2 63 Output the reformatted Line | : 
: 321 71 iF .PASS EQL 1 : 
; 7 i Hen = 3 
: 3515 74 PUT_TEXT( | ; 
; 3220 75 LENADR_(*!"), ; 
; 1 id: .INP_REC_SIZ, INP_BUF); ; 
3 ¢ 7 PUT_LINET); ; 
3 78 END; 5 
3 4 79 $ 
3 5 80 END; 3 
-PSECT $PLITS,NOWRT ,NOEXE ,2 : 
00 05 OC 01 05 06 01 01 05 00 03 02 00 02 00 O031A P.ADR: .BYTE 7» eo. OS 8. tee : 
01 00 20 00 04 1C 01 01 18 01 01 08 01 88 11 00329 5: ‘ Tete tbs, 1, 1, 2° i 1, 35° - : ; 
01 01 07 01 01 06 01 01 OS 00 03 02 00 02 00 00338 P.aDS: .BYTE 0; 2. 0,°2,°3, 0. 5, 1, 1.6. 1.1.7, 12°: : 
01 00 i$ 01 03 10 00 04 OC 00 04 O8 00347 1, 8, 4. 6° 12, 4,°6, 16, 3° 1, 19, 0, 1 : : 
21 00353 P.ADT: .ASCII \I\ : : 
H_FIELDS= P.ADR : 
F-FIELDS= P-ADS ; 
.PSECT $CODE$,NOWRT,2 : 
vente bane: ry Save R2,R3,R4,R5,R6,R7,RB.RI 3148 ; 
. a e . - . . . . ° Py 
59 0000" cr 9 0000 WOVAB INP BUF. RO : : 
5 A AE 9E 0000 MOVAB -96TSP). SP : : 
5 018C¢ p 0 08 MOVL INP REC SIZ R2 > 3193 3 
69 5 001 SKPC =. #32, - R27; INP_BUF ; : 
1 14 BNEQ -'18 : ; 
D 1 CLRL R1 3 3 
57 1 0g 18 1$ MOVL 1, PTR : ; 
‘9 1B BNEG 2 > 3194 3 
r 10 RET 3 3 
50 7 9A 3 2$ MOVZBL (PTR)+, RO : 3198 
0 Ce SUBL . RO ; 
09 » 4 CMPL P r 
& 5 7 BLEQU 3 
2c FFA 9 9 CPB =1(PTR), #44 : 3199 
0 § 9A F 3$ HOVZBL (PTR)+, RO : 3203 
0 Ce é SUBL2 #48, RO : 
9 D CMPL RO, #9 ; | 
| 


5 
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04-000 1eaeee= The Phi1b:8e = Fa Bbiegs3e Ve. 05248 oe 198 vO4 

"7 8 Q 3$ ; : 

2c FF Ki ? ah cna =1(PTR), #44 + 3204 ; 

46 BF 67 9 ip CMPB OS s«( PTR), #70 : 3210 ; 

4 4 BNEQ : ; 

56 0000' fr 7 “6 MOVAB F_FIELDS, RT : : 

48 8F ef 4 4D 4$: CMPB 3s (PTR), #72 + 3211 : 

1 13 00 | $: BEQL 6$ ; ; 

56 0000' cf aE 0054 $$: MOV H_FIELDS, RT : ; 

8 A 2 3 8 9 7$: MOVL s 17 é 

C AE 10 AE 9E D MOV BUFFER, INP+4 : 3218 : 

6E 84 BF 9A 9062 MOVZBL #13 : 3219 : 

04 aE $3 9—E 000 OV INP_BUF, OUT+4 + 3220 ; 

0050 =s«a&F 20 6 * 3 2¢ 006A MOVCS R2,~INP.BUF, #32, #80, BUFFER ; 3221 3 

0084 8F 20 6£ 00 2c a mMovcS #0, (SP), #32, #132, INP_BUF 3 3222 ; 

OC BE 08 AE 0 38 0078 8$ SKPC #32, INP, @INP+4 + 3231 ; 

os : : 

“i rr 30 888 Gout ag rm ‘gel 

50 OC AE 57 C3 OO0BA SUBL3 PTR, INP+4, RO : 3 36 ; 

tN a ae fey) | 

2c $7 9 00097 CPE (PTR), #44 ; 3338 ; 

OC BE 08 AE 36 3A a909¢ LOCC #44, INP, @INP+4 + 3244 : 

ie Bea 7 7 

57 51 09 SOOAg 10$ MOVL 1, PTR : F 

06 1 999 BNEQ 118 : 3245 3 

57 0c aE 08 AE C1 OOOAB ADDL S INP, INP+4, PTR : ; 

58 3 0c AE C3 0 11$: suBL INPs4 PTR. RB ; 3246 ; 

51 01 Ab 08 00 FD CMPZV 0, #8, 1(RT), RI : ; 

04 1 BGEQ 12$ ; ; 

51 01 AB 9A MOVZBL 1(RT), R1 : ; 

0 66 9A 12$ MOVZBL (RT), RO : 3347 ; 

01 02 A691 CMPB cat, #1 : 3248 ; 

09 13 BEQL 3$ 3 3 

53 01 AB OA HOV ZBL 1(RT), R2 : 3249 ; 

£3 SUBL2 RB, Re ; : 

BGEG »=-«*148 ; : 

D4 13$: CLAL. R : 3 

50 0 14$: ADDL Re, RO ; : 

6940 0c ; MOVCS R1. @INP+4, INP_BUFCRO) ; ; 

018c = 9 5 C BURL InP pyr. RO REC_SI2 ; ; 

8 AE ; ¢ SUBL Re. "Beet ot > 3253 ; 

gf AE D MOVL PTR, INP+4 ; 4 : 

08 A p 15$:  TSTL INP : 3259 ; 

8 AE OD DECLINP ; 3260 

C AE D6 INCL INP+4 : 3569 : 
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#0, PUT LINE 
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Converts positive binary integer to ascii string in the output buffer. 


wo ee 

aw *. oO 

~ - 

~ w o 1 

we - c ~~ 

> oe - — 

Cc @ - D> 

o fe oe ~ @ c 

vv o ~ ) 's 
N ~~ Qa —_ 

oy a - ~ = « 

a o > - > 
a - a ~ 

oO Oo ~ ~ 2 ® 

al - ‘ 2 @ & 
ve a oo=- =» 

2 w a = 

4 =) > < oe c <« = 

z — ee w ae w o 

oO e usu “ oOo 

—_ > wan aan ss =. & 
eee a < eo 2+ @ 

a - @ aaa “ os <« 9 
= re 4 ” = ~ o = c mw 
4 « < fe [7,) wz 2 _— ea 
= ~ tus ” | c- ~ 2ea < -_— — 

“” _ = > eo * a) oe= Oo —_ * > @ 
< peal tas > a w *° u - © w Ora -— vn @ vo 
4 cs = a = 2 - w = ~ wowe w i ‘o 
a 2 > a - a eo z2=x<_@4auw «= ~ a = 

£ 4 <= -—- wa Ow te vw w ( se > ws = 2 wists @ 
- =< < 2 2z2re-oew2z aq <a ~+~ oO w a — 
> z a - oOo &- Oo u Oo =z ae = wu = ~ £& << 
we oO =e Ze Zw Oe. 2 2Ie>-2 =< O—-r- wwe Ht . 

_ =) (=) v za w _—r-4 7) “z c e 
td = = -_ _ “ ov ~ uw — «ze © 
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- 2 <= a a a a ow ery Qe eee > 
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DOOM VMTN OPR- DOO— CUM 
UU RMAM MAMA IMAI oo ot oF oF oo oF oo oo UNA DO OD DO DORR NRK OD 
PSD D DID LD TD DID ID DID ID UD UD ID UD ID ID UD DID ID DID ID ID RD ID a aaa Aaa DTA ID LD A DDD DD UD DUD UD ID LD LD 
Lal al aol eo ooo ooo ohooh oo lo ooh oh hl od oh ol oh oho Lah oh Loe La Lae Lae oe Lach nd nth Lach anh Lah Lath aed nd Lh Lh ae Lad Ln) 
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SRTTRN 
v04-000 


; Be ; WHILE .Y GTR 0 DO 
; 5 BEGIN 
: 86 i CHSWCHAR(XC'O'+(.Y MOD 10), .PTR); 
; 41 PTR = CHSPLUS( .PTR, -1 ); 
; 3288 ts Y = .¥/10; 
: 3289 4 END; 
: 3290 44 
: 3291 45 UT_TEXT( 
: 329 46 CHSDIFF (TMP_BUFCXALLOCATION(TMP_BUF)-1], .PTR), 
: 329 4 CHSPLUS(.PTR, 1)); 
: 3¢ 28 RETURN TRUE 
; 38 50 
3 9 51 1 END; 
.PSECT 
30 00354 P.ADU: .ASCII 
.PSECT 
0004 00000 CVT_BTA:.WORD 
25 14 Ce 44 SUBL2 
5 04 AC 00 0000 MOVL 
OA 14 00009 BGTR 
9 12 00008 BNEQ 
0000" CF 9F 0000D PUSHAB 
01 DD 00011 PUSHL 
28 «(11 Baig BRS 
51 13. AE 9 1 1$: MOVAB 
52 05 00019 2$: TSTL 
15 15 0001B BLEG 
7E 00 52 1 7A 0001 EMUL 
50 50 Hi A 7B 000 EDIV 
61 5 0 81 000 ADDB3 
1 D7 00028 DECL 
52 0A C6 000 DIVL2 
€7 11 BRB 
01 Al OF 3$: PUSHAB 
17 AF % MOV 
51 C SUBL 
FC30 CF 02 FB 4$: CALLS 
0 1 6 4 MOVL 
50 be 90048 S$: CERL 
4 Sock RET 


; Routine Size: 73 bytes, Routine Base: S$CODE$ + 1805 
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STOR UDSSE WaT SMe MB 


—~Nm 


SORT32.SRCJSRTTRN.BS 


SPLITS,NOWRT ,NOEXE ,2 
\0\ 


SCODES,NOWRT,2 


4$ 
TMP _BUF +19, PTR 


3$ 
Wi, Y, #0, -(SP) 
#16, (sp)+, RO, 
#48, RO, (PTR) 
#10, Y 

(PTR) 
TMP_BUF+19, RO 
PTR; RO, -(SP) 
We, PUT _TEXT 
#1. R 


RO 
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¥04=000 easee=tSRe Ph 1gi8e «FARAH Bb iegs3e ve -O574 ge 139 v04 
: 3299 3 1 ROUTINE CVT_DTB( ; 
3; 3500 1 LENGTH ; 
; 3301 4 INP_ADR, ; 
; 330 + OUT-ADR: REF VECTORL1}) = ; 
; 330 g 1 44 3 
; 3304 1! 3 
: 09 5359 | FUNCTIONAL DESCRIPTION: ; 
3 44 4 } Converts decimal ascii string to a binary integer. : 
: 309 ¢ : FORMAL PARAMETERS: : 
$ 3H 64 1! LENGTH Length of input string : 
3 \¢ oo 3: INP_ADR Address of input string : 
3 $317 06 : OUT_ADR Address to store the result : 
3 3313 re 1 ! IMPLICIT INPUTS: $ 
3 16 $292 1! 3 
s 3312 ; 70 1! NONE 3 
; 3318 ‘'s ae : 
3 3319 3378 1 ! IMPLICIT OUTPUTS: 3 
3; 3320 sre ae 
: 3321 374 1! NONE 
3 3256 375 1! 
3s 332 376 1 ! ROUTINE VALUE: 
; $35¢ $352 1! 
3; 3325 378 1! 0 or 1 
3; 3326 3379 1! 
3; 3327 3380 1 ! SIDE EFFECTS: 
: 3328 3381 1! 
3 3329 $306 1! NONE 
3; 3330 $35 1 !-- 
3: 3331 3384 BEGIN 
3 HET 385 LOCAL 
: 3832 389 — 
; $380 $68 2 IF CHSFAIL(CHSFIND_NOT_CH(.LENGTH, .INP_ADR, %C° ')) THEN RETURN FALSE; 
g 3338 390 OUT_ADR(O) = 0; 
3 3335 33) PTR = .INP_ADR; 
3 3340 39 DECR I FROM .LENGTH-1 TO 0 DO 
3: 3341 94 BEGIN 
3 348 95 LOCAL 
3 96 NUM; 
3 3344 397 NUM = CHSRCHAR_A(PTR); 
3: 3345 398 IF .N QL XC*° * THEN NUM = 0 ELSE NUM = .NUM = %C'O'; 
: 3346 399 IF_:NUM GTRU 9 THEN RETURN FALSE; | 
3 3347 400 OUT_ADRCOJ = .OUT_ADRCO) * 10 + .NUM; 
3; 3348 401 END; 
3; 3349 re 
; 3350 40 RETURN TRUE; 
; 3351 404 END; 
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04-000 1Erep= 138s Phi1b:8e FARAH Bkisgs3e Mh. 05242 wad vod 
60 0 82 00018 SUBB2 #32, (PTR) ; 
D 0 1B 33 INCL + 3444 
EC Ruf 1D 3$ SOBGEQ 1, 1$ + 3439 
04 00020 RET + 3448 


; Routine Size: 33 bytes, Routine Base: SCODES + 195F 


WAG 
WW 
ooo 
oon 
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451 0 ELUDOM 
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PSECT SUMMARY 3 
; Name Bytes Attributes : 
: SOWNS 1916 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SPLITS 85 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ; 
; SGLOBALS 72 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) é 
; SCODES 6528 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
3 Library Statistics : 
te Mey ae ees Oe. Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CSORT32.SRCISFKEYWRD.L32;1 ; 
3 1 1 100 9 00:00.1 3 
; _$255$0UA28:CSYSLIBJSTARLET L3¢51 9776 97 0 581 00:01.1 : 
; _$255$DUA28:CSYSLIB XPORT.L3 31 590 24 4 252 00:00.6 : 
; COMMAND QUALIFIERS 3 
H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:SRTTRN/OBJ=OBJ$:SRTTRN MSRC$:SRTTRN/UPDATE=(ENHS: SRTTRN) ; 


; Size: eas a 2841 data bytes 
:28.1 


; Run Time: 

; Elapsed Time: 

3; Lines/CPU Min: 1821 
i Lexemes/CPU-Min: 26914 
: Y Used: 350 pages 
; Compilation Complete 
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